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Abstract 

by 

Alan  J.  Lesser 

The  geotechnical  engineering  profession  is  quite  familiar  with  stiff 
fissured  and  jointed  clays,  where  discontinuities  are  found  on  a  macroscopic 
scale.  Until  recently,  however,  there  has  not  been  a  systematic  investigation  of 
the  crack  propagation  phenomena  involved  in  the  failure  of  such  clays.  This 
thesis  presents  a  fundamental  investigation  in  an  effort  to  understand,  describe 
and  quantify  the  mechanisms  involved  in  the  process;  the  ultimate  goal  being  to 
develop  a  constitutive  model  which  depicts  the  fracture  process  in  these  clays. 

The  study  concentrates  on  a  Mode  n  type  of  fracture  that  the  author 
has  been  able  to  induce  in  a  specimen  with  the  configuration  of  a  notched,  thin, 
long,  hollow  cylinder  subjected  to  a  hydrostatic  stress  and  pure  torsion.  Within 
the  stress  concentration  field,  a  damage  zone  (process  zone)  is  identified.  The 
kaolinite  clay  is  quantifiably  characterized  in  both  its  undamaged  and  damaged 
states.  Micromechanisms  responsible  for  macroscopic  irreversible  deformation 
are  identified.  A  comprehensive  stress  and  energy  analysis  is  performed  in  the 
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vidnity  of  the  damage  zone.  And  finally,  a  methodology  for  evaluating  a 
(institutive  law  is  introduced  and  applied  to  the  case  of  overconsolidated  clays. 
The  methodology  describes  the  fracture  process  through  the  laws  of 
thermodynamics  of  irreversible  processes  in  an  elastic  continuum  with  damage. 
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Chapter  1 


Introduction 


1.1  Progressive  Failure  ia  Overconsolidated  Clays 

A  characteristic  common  to  many  stiff  clays  is  that  they  are 
overconsolidated.  The  rebound  that  takes  place  during  a  stress  release  often 
results  in  small  fissures  or  cracks.  As  a  consequence,  many  clays  exist  in  a 
fissured  state  (1,2,19,21).  The  initiation  of  cracks  in  clay  c^  be  chemically 
induced  as  in  the  case  of  syneresis  cracks  (16).  In  general,  any  depositional 
process  followed  by  a  diagenetic  or  tectonic  process  can  give  rise  to 
macrostructural  features  like  fissures  (13,14). 

Once  a  crack  is  initiated,  the  stress  concentration  in  the  vicinity  of  the 
crack  tip  may  cause  a  substantial  reduction  in  available  strength  of  the  intact 
clay.  This  has  been  understood  by  the  geotechnical  profession  for  years.  In 
1936,  Terzaghi  (22)  gave  the  some  of  the  first  quantitative  data  on  the  influence 
of  joints  and  fissures  on  the  strength  of  clays.  He  illustrated  that  such  features 
are  characteristic  of  overconsolidated  clays  and  that  the  overall  strength  of  the 
“stiff  fissured  clays"  could  be  as  low  as  one  fifth  to  one  tenth  the  strength  of  the 
intact  clay.  Similar  findings  were  published  by  Skempton,  Schuster,  and  Petley 
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when  they  studied  the  joints  and  fissures  in  London  Clay  (21). 

Studies  describing  the  behavior  of  fissured  clays  and,  in  general, 
overconsolidated  clays  with  any  type  dislocations  are  warranted  when  reviewing 
the  case  histories  of  progressive  slope  failures.  In  Bjerrum’s  publication  on  the 
"Progressive  Failure  in  Slopes  of  Overconsolidated  Plastic  Clay  and  Clay 
Shales"  (2)  he  categorized  failures  in  60  individual  case  histories  with  respect  to 
the  type  of  the  clay  in  which  the  failure  occurred.  In  his  paper,  the  term 
weathering  was  used  to  describe  aU  changes  in  the  upper  layer  of  clay,  including 
physical  changes  that  do  not  originate  from  climatic  conditions.  Two  phases  of 
weathering  were  identified;  the  first,  called  disintegration,  involves  the 
breakdown  of  the  diagenitic  bonds.  The  second  phase  involves  chemical  changes 
and  decomposition  of  the  minerals.  Bjerrum  concentrated  his  attention  on  the 
first  of  these  two  phases.  From  his  reported  observations  of  the  weathered  clay 
he  noted  :  This  zone  in  general  will  have  a  system  of  open  cracks. 

Bjerrum’s  findings  showed  that  the  greatest  number  of  slides  (about 
55%)  had  occurred  in  a  zone  of  weathering  in  overconsolidated  clays  with  strong 
diagenitic  bonds.  The  next  largest  group  (about  35%)  proved  to  be  in 
overconsolidated  clays  with  weak  bonds.  In  the  second  largest  group  Bjerrum 
found  it  difficult  to  difierentiate  whether  the  slides  occurred  in  unweathered  or 
weathered  material.  The  remaining  10%  of  the  study  sample  were  slides  that 
occurred  in  unweathered  material  of  overconsoli dated  clay  which  has  high 
diagenitic  bonds. 
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In  general,  slope  failure  can  be  categorized  into  basic  types  of  mass 
movement.  Eleven  basic  types  including  multiple  and  complex  landslides  are 
shown  in  Fig.  1.1  (1).  Researchers  have  also  found  that  different  types  of  days 
tended  to  fail  in  different  types  of  mass  movements.  A  table  which  indudes  the 
type  of  movement,  the  type  of  day  and  location,  and  reporting  author(s)  was 
summarized  in  (1)  and  is  reproduced  here  in  Table  1.1.  According  to  Attewell 
and  Farmer  (1),  Skempton  and  Hutchinson  found  "that  the  rotational  form  of 
multiple  retrogressive  slides  occur  most  frequently  on  actively  eroding,  high 
relief  slopes  in  which  a  thick  stratum  of  overconsolidated  fissured  day  or  day 
shale  is  overlain  by  a  thick  bed  of  more  competent  rock. 

Ultimately,  geotechnical  engineers  realized  the  importance  of 
incorporating  cracks  and  other  types  of  dislocations  into  the  conventional 
constitutive  models.  Conventional  failure  criteria  such  as  Tresca,  Mises,  or 
Coulomb  may  be  appropriate  for  yield  dominant  failures,  however  they  are  not 
appropriate  for  describing  the  brittle  mechanisms  of  failure. 

In  order  to  understand  the  mechanisms  involved  in  progressive  failure  of 
overconsolidated  clays,  various  types  of  research  evolved.  Much  of  the 
published  work  appears  in  the  form  of  observational  data;  some  appears  in  the 
form  proposed  modds.  In  the  next  few  pages  some  of  these  approaches  will  be 
introduced  and  commented  on. 
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In  1969,  Skempton  and  his  coworkers  (21)  defined  a  classification  system 
for  discontinuity  types.  In  this  study,  five  t3fpes  of  discontinuities  were 
distinguished.  These  five  classifications  are  briefly  listed  and  described  as: 


1)  Bedding  —  a  discontinuity  with  a  gently  undulating  surface 

having  a  somewhat  rough  or  bumpy  texture. 

2)  Joints  —  Predominantly  vertical  and  usually  between  1  and  4 

ft.  high,  and  up  to  18  ft.  long  with  a  pronounced 
trend  to  orthogonal  directions. 

Similar  to  Bedding  except  they  dip  (usually 
between  5°  and  15°  ).  They  are  also 
classified  as  low  angle  joints. 

Planar  or  conchoidal  fractures,  rarely  more 
than  6  in.  in  size  with  a  matt  surface  or 
texture.  They  also  show  scarcely  any 
preferred  orientations  apart  from  the  clear 
tendency  to  concentrate  in  sub— horizontal 
planes  more  or  less  parallel  to  bedding.  The 
number  of  fissures  per  unit  volume  increases 
and  their  size  correspondingly  decreases  as 
the  upper  surface  of  the  clay  is  approached. 

5)  Faults  —  Large  discontinuities  with  slightly  polished  surfaces. 

Usually,  5—10  mm  of  gouge  clay  evident  on  the 
shear  planes. 


It  should  be  noted  that  this  classification  system  is  predominantly  designed  for 
site  investigation  information  and,  accordingly,  all  features  described  here  are 
macroscopical  anomalies. 


3)  Sheeting  — 


4)  Fissures  - 


In  Laboratory  observations,  Skempton  (20)  also  identified  five  stages  in 
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the  shearing  deformation  of  stiff  clay  (see  Fig  1.2).  The  first  is  defined  as 
continuous  nonhomogeneous  strain.  The  second  is  the  creation  of  inclined 
surfaces  ranging  between  IQo  and  30°.  The  third  acknowledged  the  creation  of 
Reidel  shears.  With  further  movement,  the  Reidel  shear  is  no  longer 
kinematically  admissible  and  the  new  parallel  or  subparallel  surface  is  created. 
And  finally,  the  slip  surface  undergoes  appreciable  flattening  as  a  result  of  stiU 
greater  movements. 

In  1970,  Lo  (10)  proposed  a  technique  to  accommodate  for  size  effect  in 
fissured  clay  and  presented  complementary  test  results.  Also  in  his  paper,  Lo 
described  a  computational  procedure  to  determine  the  operational  strength  of 
fissured  clay.  This  computational  procedure  generally  relates  to  the.probability 
of  encountering  a  critically  oriented  crack. 

Lo  contributed  another  approach  in  1973  (11)  with  a  finite  element 
analysis  solution  to  progressive  slope  failure.  For  his  soil  model,  Lo  used  a 
strain-softening  behavior  similar  to  that  expected  from  a  shear  box  test.  A 
typical  slope  was  analyzed  repetitively  while  certain  parameters  were  selectively 
varied  and  general  comments  were  made  on  the  results. 

Other  researchers  focused  their  attention  on  the  micromechanisms 
responsible  for  failure.  In  1967,  Morgenstern  and  Tchalenko  (14)  provided  an 
excellent  report  on  the  miaoscopic  structures  observed  in  kaolin  subjected  to 
direct  shear.  They  identified  two  distinct  regions  in  the  clay.  The  first  is 
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referred  to  as  the  original  soil  fabric  and  describes  the  microstructure  of  the 
material  subjected  to  environmental  conditions  and  its  sedimentary  history. 

The  second  region  is  referred  to  as  the  shear— induced  fabric.  This  region 
describes  the  microstructure  of  the  material  after  post  depositional  shear  strains 
have  been  induced.  Morgenstem  and  Tchalenko  included  micrographs  from 
laboratory  experiments  describing  characteristics  of  the  original  fabric  and  the 
shear  induced  fabric  resulting  from  shear  box  tests. 

More  recent  investigations  include  the  appbcation  of  classical  fracture 
mechanics  as  applied  to  a  linear  elastic  material.  Of  interest  in  such  studies  is 
information  about  the  crack  propagation  rate,  direction,  and  critical  crack 
length  for  various  modes  of  fracture.  A  fracture  mode  designates  geometrically 
the  separation  between  aack  surfaces.  In  general,  a  crack  propagating  in  any 
given  direction  can  be  described  as  a  combination  of  three  fundamental  modes 
of  fracture.  These  fundamental  modes  are  shown  in  Fig.  1.3. 

Based  on  the  qualitative  descriptions  of  the  failure  mechanisms 
responsible  for  progressive  failure.  Palmer  and  Rice  (15)  suggested  that  sliding 
occurs  on  concentrated  slip  surfaces.  Using  concepts  from  fracture  mechanics 
(i.e.  the  /—integral),  attempts  were  made  to  assess  the  time  dependence 
governing  the  propagation  rate  of  a  particular  shear  band.  The  assumed  model 
used  for  the  shear  band  was  very  similar  to  the  cohesive  force  models  (i.e. 
similar  the  models  proposed  by  Barenblatt  and  Dugdale). 
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Their  model  asserts  that  there  is  a  fixed  linear  relationship  between  the 
shear  stress  in  the  material  and  the  displacement  required  to  produce  it(e.g.  the 
stress-displacement  relationships  obtained  from  shear  box  tests).  Since 
displacement  is  the  integral  of  the  strains  over  a  given  region,  an  immediate 
consequence  is  that  size  effects  will  occur  (i.e.  the  assumption  of  a  relation 
between  shear  stress  and  shear  displacement  introduces  a  characteristic  length 
into  the  material  description).  Specifically,  the  size  effect  appears  in  the 
resistive  part  of  the  aack  driving  force  equation.  In  addition.  Palmer  and  Rice 
give  advice  for  experimentally  obtaining  the  energy  release  rate  in  an 
approximate  manner  by  computing  the  energy  under  the  unloading  portion  of 
the  stress— strain  curve  in  a  particular  shear  box  test.  Other  assumptions  made 
in  the  shear  band  analysis  include  the  application  of  the  asymptotic  stress 
distribution  in  the  vicinity  of  the  slip  surface  (this  assumption  implies  a 
negligibly  small  zone  of  deformed  material  in  the  vicinity  of  the  slip  surface 
tip). 


In  1986,  Saada,  Chudnovsky,  and  Kennedy  (17)  published  results  for  the 
determination  of  the  critical  stress  intensity  factors  (fracture  toughness)  Kj^ 
and  Kjj^.  The  samples  used  in  the  for  the  Mode  I  investigation  were  hollow 
disks  and  the  specimens  used  for  the  Mode  11  investigation  were  long  hollow 
cylinders.  The  Mode  I  specimens  were  tested  under  fatigue  loading  conditions 
and  the  Mode  II  specimens  were  tested  monotonically. 


From  these  tests  information  regarding  critical  aack  lengths  was 
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obtained  and  their  results  were  applied  to  the  example  of  a  critical  crack  length 
for  an  infinite  slope  at  various  angles  of  orientation.  Also  included  was  a  brief 
outline  for  a  thermodynamic  description  of  the  fracture  process. 

Other  recent  contributions  include  the  investigations  performed  by 
Vallejo  (23j24).  His  examinations  concentrated  on  defining  the  direction  of 
aack  propagation  under  various  modes  (including  mixed  modes)  of  fracture. 

He  determined  that  the  crack  propagation  generally  followed  the  direction  of 
the  maximum  shear  stress  irrespective  of  the  notch  orientation. 


1.2  Previous  Work 

The  initial  stage  of  this  research  began  in  1983  with  experimental 
evaluation  of  the  critical  stress  intensity  factors  for  both  Modes  I  and  H  (Kj^ 
and  The  research  work  was  performed  by  Mark  Keimedy  under  the 

direction  of  Drs.  Saada  and  Chudnovsky.  Results  following  this  research  were 
published  in  (17). 

In  Keimedy’s  examination  of  Mode  I  behavior,  either  static  or  dynamic 
air  pressure  was  applied  by  way  of  a  membrane  inserted  along  the  inner  surface 
of  a  hollow  clay  disk  (see  Fig.  1.4).  A  crack,  initiated  &om  a  notch  on  the  inner 
surface,  was  allowed  to  propagate  in  a  stable  manner  until  a  critical  crack 
length  was  reached.  Records  of  the  critical  crack  lengths  were  documented. 
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This  information  was  then  used  with  a  Green’s  function  to  compute  the  critical 
stresses  and  stress  intensity  factor.  However,  the  Green’s  function  used  was 
initially  intended  for  a  strip  (not  a  hollow  disk) 
having  the  same  stress  distribution  of  a  hollow  disk. 

In  the  Mode  H  study,  Kennedy  used  a  sample  configuration  in  the  form 
of  a  notched  long  hollow  cylinder.  A  monotonic  torsional  couple  was  applied  to 
selected  samples  and  test  results  were  documented.  The  test  findings  were 
processed  via  the  solution  proposed  by  Erdogan  and  Ratwani  (8)  for 

In  August  of  1985,  Majd  Sharaf  (18)  completed  additional  research 
focused  on  the  description  of  the  kinematics  of  fatigue  aack  propagation  of  stiff 
clays.  He  augmented,  his  study  by  also  considering  the  effects  of  variable 
overconsolidation  ratios.  His  experimental  studies  were  performed  on  specimens 
similar  to  Kennedy’s  for  both  Modes  I  and  H. 


1.3  The  Concept  of  Cooperative  Fracture  and  its  Propagation 

The  significant  role  played  by  microdefects  (damage)  in  the  process  of 
crack  formation  and  growth  is  commonly  recognized.  In  general,  two  extreme 
cases  regarding  the  influence  of  defects  in  the  fracture  process  are  distinguished. 
Modeling  of  these  two  cases  requires  essentially  different  formalisms. 
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Case  1  —  A  crack  propagates  through  a  pre-existing  field  of  defects 
Q.e.,  a  pre-existing  strength  field)  causing  negligible  changes  in  the  field. 
The  fluctuation  of  the  microdefect  field  is  directly  reflected  in  the 
stochastic  features  of  the  fracture  surfaces  and  also  leads  to  the  scatter  of 
experimentally  observed  fracture  parameters  (critical  crack  length, 
critical  load,  etc.).  The  fracture  is  characterized  by  a  single  'path 
phenomenon  and  a  probabilistic  approach  seems  most  adequate  under 
these  circumstances. 


Case  2  —  The  intensity  of  damage  formed  as  a  response  to  the  stress 
concentration  at  the  tip  of  a  propagating  crack  is  much  greater  than  the 
intensity  of  the  pre-existing  damage.  The  crack  propagation  is  then 
inseparable  from  the  evolution  of  damage  accompanying  the  crack.  The 
damage  accompanying  the  crack  is  often  referred  to  as  the  active  zone, 
the  process  zone,  or  the  damage  zone.  This  strongly  cooperative 
phenomenon  is  modeled  with  a  theory  based  on  thermodynamics  of 
irreversible  processes. 


A  common  mistake  is  to  refer  to  non-cooperative  fracture  as  hrittie  and 
similarly,  to  refer  to  cooperative  fracture  as  ductile.  However,  the  words  brittle 
and  ductile  are  commonly  used  in  strength  of  materials  to  describe  the 
micromechanisms  of  failure  in  a  given  material.  That  is,  a  brittle  material  fails 
in  tension  and  a  ductile  material  fails  in  shear.  For  example,  if  a  crack 
propagates  symmetrically  in  a  single  path  while  being  tested  in  Mode  H,  then 
the  failure  mechanism  is  predominantly  ductile  while  the  fracture  process  is 
non-cooperative.  Similarly,  many  materials  like  polystyrene  exhibit  highly 
cooperative  fracture,  while  the  failure  mechanism  is  predominantly  brittle 
(3,6,12). 


Cooperative  fracture  is  identified  by  a  crack  preceded  by  intensive 
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damage.  The  term  damage  is  used  heie  iu  a  generic  sense  and  it  should  be 
expected  that  the  nature  of  damage  varies  between  materials.  When  the 
damage  ahead  of  the  crack  tip  reaches  a  critical  level,  local  instability  takes 
place  and  the  crack  jumps  within  the  damage  zone  to  a  new  stable 
configuration.  This  crack  advance,  in  turn,  leads  to  the  changes  in  the  stress 
field.  The  latter  causes  further  damage  accumulation  until  a  new  local 
instability  is  reached.  Thus  we  visualize  the  crack  and  surrounding  damage 
propagation  as  a  sequence  of  local  instabilities  and  slow  damage  accumulation 
processes.  Consequently,  a  repetition  of  the  above  described  events  on  a 
microscopic  scale  results  in  a  continuous  stable  crack  propagation  process  on  a 
macroscopic  scale.  The  concept  of  self  similar  events  constituting  the  fracture 
process  allows  one  to  develop  the  mathematical  model  of  the  phenomena. 

Chudnovsky  has  shown  that  a  description  of  the  fracture  process  within 
a  thermodynamic  framework  ultimately  leads  to  an  elegant  model  which 
realistically  depicts  stable  aack  propagation  as  well  as  provide  a  criteria  for 
crack  stability.  He  outlined  these  concepts  in  the  context  of  different  materials 
ranging  from  polymers  to  high  alloy  steels  (3, 4, 5, 6, 7).  The  model  generated 
from  this  framework  is  commonly  referred  to  as  the  Crack  Layer  (CL) 
approach. 

The  crack  together  with  its  surrounding  damage  are  referred  to  as  a 
Crack  Layer.  Within  the  CL,  microdefects  can  be  observed.  Depending  on  the 
material  in  which  the  CL  is  formed,  these  defects  may  be  observed  in  the  form 
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of  shear  bands,  crazes,  microcracks,  voids  or  material  densifications.  For 
example.  Fig.  1.5  exhibits  a  layer  of  extensive  crazing  accompanying  fatigue 
crack  propagation  in  polystyrene  (12).  Similar  features  of  fracture  propagation 
have  been  observed  recently  in  stiff  clays  tested  in  Mode  H.  Fig.  1.6  shows  the 
damage  surrounding  a  propagating  crack  in  a  notched  hollow  cylinder  subjected 
to  cyclic  torsional  stresses.  More  will  be  said  about  Fig.  1.6  which  is  presented 
at  this  stage  only  to  demonstrate  the  applicability  of  the  concept  to  O.C.  day. 

There  are  two  complementary  approaches  to  characterize  crack  layer 
propagation.  One  which  can  be  called  the  micromechanics  of  crack  layer,  deals 
with  modeling  the  stress-strain  fields  due  to  the  interaction  of  the  main  crack 
with  the  surrounding  damage.  This  approach  requires  detailed  description  of 
the  surrounding  damage  as  well  as  the  geometry  of  the  mack  and  stress-strain 
fidds.  Also,  knowledge  of  the  conditions  for  local  instability  and  a  detailed 
description  of  the  aack  jump  from  one  stable  configuration  to  another,  are 
required.  This  approach  is  extremdy  tedious  both  from  a  theoretical  and 
experimental  point  of  view. 

The  second  is  a  thermodynamic  approach  which  describes  the  system  in 
global  terms  based  on  the  first  principles,  and  pays  no  attention  to  the  details  of 
the  fracture  process.  This  phenomenological  way  is  based  on  the  general 
framework  of  the  thermodynamics  of  irreversible  processes. 


For  the  modd  proposed  and  the  material  under  consideration,  damage  is 


represented  by  densified  regions  (these  densified  regions  will  be  described  in 
detail  later),  which  can  be  visualized  as  three  dimensional  defects.  Specifically 
we  use  the  total  volume  of  damaged  material  within  a  unit  volume  as  the 
damage  density  p  with  the  dimension  mm^/mm^.  As  will  be  shown  later,  the 
damage  density  in  the  vicinity  of  the  main  crack  can  be  directly  evaluated  from 
optical  observations  using  an  image  analyzer.  Fig.  1.7  shows  schematically  the 
damage  zone  surrounding  and  preceding  a  generic  crack  trajectory.  The  front 
zone  of  the  CL  within  which  damage  accumulation  is  non  zero  is  defined  as  the 
active  zone.  In  this  zone  p>  0  and  p  >  0. 

During  unloading  conditions  the  rate  of  damage  change  is  negligible  and 
as  a  result  a  wake  zone  appears  as  a  trace  of  the  active  zone  propagation.  In 
this  zone  p  >  0  but  p  =  0.  The  active  zone  is  confined  by  the  leading  edge 
and  the  trailing  edge  as  shown  in  Fig.  1.7.  If  the  increments  of  CL  advance 
are  small  compared  to  the  CL  size,  affine  transformation  of  the  active  zone  can 
reasonably  approximate  the  actual  evolution  of  damage.  Accordingly,  for  an 
active  zone  of  length  ^  the  rate  of  translation  can  be  considered  as  a 
thermodynamic  flux.  The  law  of  CL  propagation  can  be  established  by  relating 
the  fluxes  to  the  reciprocal  forces  (the  causes)  within  the  framework  of 
irreversible  thermodynamics. 

Chudnovsky  has  shown  (3, 4, 6, 7)  that  the  cooperative  fracture  process 
can  be  modeled  thermodynamically  and  is  based  on  the  following  governing 
equation. 
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[1.1]  T5i  =  2-^  +  w- +  2-^®^  =  0 

where  Si  is  the  global  entropy  production,  ^  w,  and  2  are  thermodynamic 
fluxes,  and  the  ^s  are  their  reciprocal  forces.  The  fluxes,  describe  the 
dementary  movements  of  the  Crack  Layer  shown  in  Fig.  1.7  and  are  defined  as 

1  —  Rate  of  Translation 

w  —  Rate  of  Rotation 

2  —  Rate  of  deformation 

The  conjugate  forces  X  decompose  into  two  parts: 

[1.2]  X=  A- jR 

A  is  referred  to  as  the  active  part  and  R  is  called  the  resistive  part  of  a 
particular  thermodynamic  force.  The  active  part  of  a  thermodynamic  force  is 
evaluated  by  assessing  the  potential  energy  rdease  associated  with  it’s 
particular  dementary  movement.  The  resistive  part,  R,  describes  the  amount 
of  energy  consumed  during  the  movement,  and  7  is  referred  to  as  the  spedfic 
energy  for  damage  formation. 

The  thermodynami';  forces  (Equation  1.2)  resemble  the  criterion  for 
crack  instability  in  a  Griffiths  crack  (9).  The  Griffiths  mack  instability 
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condition  can  be  expressed  as: 

>  0  unstable 
<  0  stable 

J^in  Equation  1.3  is  the  elastic  energy  release  rate  and  27  is  the  surface  energy 
of  the  new  crack  surface.  It  should  be  noted  that  Equation  1.3  represents  only 
the  necessary  condition  for  instability  (i.e.,  a  sufficient  condition  must  also  be 
met).  When  comparing  Equation  1.2  with  1.3,  one  can  appreciate  the  duality 
that  exists  between  the  Crack  Layer  theory  and  other  theories  describing  crack 
instability.  That  is,  '^R-  A  (27  —  represents  the  energy  barrier  which  must 
be  overcome  for  movement  of  the  damage  zone  (propagation  of  an  ideal  crack). 


[1.3] 


r-27  = 


1.4  Thesis  Outline 


Consequently,  the  ultimate  goal  of  this  research  is  to: 


Develop  a  constitutive  model  which  describes  the  Mode  11  fracture 
process  in  overconsolidated  clays.  This  is  completed  by  describing  the 
thermodynamic  forces  thereby  enabling  predictions  of  the  fluxes 
(elementary  movements). 


In  order  to  achieve  this  goal,  we  identify  five  main  tasks  which  must  be 


completed. 
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1)  Identify  the  nature  of  defects.  That  is,  we  must  identify  damage 
in  overconsolidated  days.  This  requires  characterization  of  both 
the  damaged  and  undamaged  states  of  the  material. 

2)  Characterize  the  distribution  of  defects.  The  distribution 
characterization  is  required  before  estimates  of  the  active  and 
resistive  parts  of  the  thermodynamic  forces  can  be  evaluated. 

The  active  part  requires  knowledge  of  the  damage  configuration, 
and  the  resistive  part  requires  information  about  the  rate  of 
damage  accumulation. 

3)  Stress  and  Energy  Analysis  on  Crack— Damage  Interaction.  A 
semi-empirical  stress  analysis  should  be  performed  to  estimate 
the  amount  of  energy  release  assodated  with  particular 
movements  observed  in  the  experiment. 

4)  Integral  Characterization  of  the  zone  of  damage.  This  is 
performed  experimentally  with  techniques  in  quantitative 
stereology  and  is  used  to  compute  the  resistive  parts  of  the  forces. 

5)  Integral  Evolution  of  Damage  with  respect  to  time.  Once  steps  3 
and  4  are  accomplished  at  various  time  intervals,  the 
thermodynamic  forces  can  be  evaluated  whereby  computing  7,  the 
spedfic  enthalpy  of  damage.  7  is  considered  a  material  property 
in  the  Crack  Layer  theory.  Next,  the  constitutive  law  can  be 
expressed  in  terms  of  the  fluxes  and  forces. 


The  prindpal  objective  of  this  thesis  is  to  investigate  the  necessary  aspects  of 
the  above  outlined  research  as  applied  to  overconsolidated  clay  subjected  to 
Mode-II  cyclic  loading. 
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Figure  1.2: 


Successive  stages  in  the  Development  of  Shear  Zones. 
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mode  I  MODE  II  MODE  III 

OPENING  MODE  SLIDING  MODE  TEARING  MODE 


Figure  1.3: 


Three  Fundameatal  Modes  of  Fracture. 
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Figure  1.4:  Mode  I  Test  Apparatus  and  Specimen  Geometry 
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FigTiie  1.5 


Damage  preceding  a  main  crack  in  polystyrene  under  Mode 
I  fatigue  loading. 
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TYPICAL  DAMAGE  REGION 


1  cm 


Damage  zone  preceding  noted  in  Mode  11  fatigue  of 
hollow  cylinder. 
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CRACK  LAYER  ZONE  IDENTIRCATION 


Figure  1.7: 


Crack  Layer  damage  zone  identification. 
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Chapter  2 


Experimental  Procedures 


2.1  Introduction 

The  information  contained  herein  describes  the  laboratory  procedures 
used  in  the  sample  preparation  and  testing  as  well  as  some  of  the  data 
processing  performed  on  this  project.  It  should  be  noted  that  only  descriptions 
pertaining  to  the  successful  completion  of  a  laboratory  test  are  included  and  not 
information  about  particular  procedures  involved  in  the  data  processing.  For 
example,  information  regarding  a  description  of  the  image  analyzer,  its 
capabilities  and  its  general  use  are  described  in  this  chapter,  but  information 
regarding  the  measurement  of  particular  features  using  this  tool  are  dealt  with 
individually. 

A  numbering  system  used  throughout  this  report  was  adopted  for 
specimen  identification.  Each  cylinder  identification  number  contains  two 
different  numbers  separated  by  a  slash  (— ).  The  first  number  identifies  the 
batch  from  which  the  cylinder  was  cut  and  the  second  number  identifies  the 
cylinder  within  that  batch.  For  example.  Cylinder  2-3  was  the  third  specimen 
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tested  ficom  batch  #  2.  Typically,  four  cylinders  can  be  fashioned  from  one 
batch.  However,  there  are  instances  where  a  particular  cylinder  was  lost  in  the 
manufacturing,  consolidating,  or  impregnation  process.  Mention  of  these 
mishaps  will  be  made  when  appropriate. 


2.2  Material  Properties 

The  kaolinite  used  in  these  experiments  has  the  following  properties: 
Liquid  Limit  =  56.3  % 

Plastic  Limit  =  37.5% 

Other  pertinent  information  regarding  a  spectral  analysis  for  the  chemical 
composition  of  this  material  are  listed  in  Table  2.1. 


2.3  Initial  Consolidation 

The  first  step  is  to  produce  a  large  block  of  clay  (referred  to  herein  as  a 
hatcK)  strong  enough  to  withstand  a  machining  process.  Specifically,  a 
machining  process  is  used  to  manufacture  the  notched  hollow  cylinders. 
Typically,  each  batch  is  large  enough  to  provide  four  cylinders. 

Seventeen  pounds  of  the  kaolinite  clay  powder  (described  in  Section  2.2) 
are  mixed  with  an  equal  weight  of  de-aired  distilled  water  to  form  a  slurry. 
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This  corresponds  to  a  water  content  of  approximately  100%  (about  twice  the 
liquid  limit).  The  kaolin  powder  is  placed  in  a  20  cm.  diameter  by  43  cm.  high 
(8.0  in.  diameter  by  17.0  in.  high)  consolidometer.  Next,  the  water  is  slowly 
and  steadily  drawn  into  the  consolidometer  by  using  a  vacuum.  After  the 
proper  amount  of  clay  powder  and  water  mixture  is  attained,  mixing  is 
performed  manually  until  a  consistent  slurry  is  achieved. 

Once  the  mixing  is  complete,  the  consolidation  pressure  is  increased  at  a 
constant  rate  of  4.7  kPa/hour  (  0.68  psi/hour)  while  allowing  drainage  on  both 
the  top  and  bottom  of  the  sample  (see  Fig.  2.1).  After  a  five  day  waiting 
period,  a  final  vertical  pressure  of  630  kPa  (90  psi)  is  reached.  This  maximum 
pressure  is  then  allowed  to  remain  on  the  batch  for  an  additional  48  hours. 
Afterward,  another  24  hours  is  allowed  for  rebound. 


2.4  Cylinder  Preparation 

Four  7.2  cm  (2.83  inch)  diameter  solid  cylinders  are  cut  from  the  batch. 
Each  cylinder  is  then  wrapped  in  cellophane  and  placed  in  a  humidity  chamber 
for  storage. 

When  a  test  is  scheduled,  a  solid  cylinder  is  removed  from  the  humidity 
chamber  for  further  sample  preparation.  A  5.1  cm  (2.0  inch)  diameter  core  is 
removed  using  a  wire  cutter  and  a  special  mold.  Next,  the  ends  are  trimmed  to 
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give  an  11.4  cm  (4.5  inch)  high  hollow  cylinder.  The  cylinder  is  then  placed  in 
a  special  lathe  and  the  outer  wall  is  carved  to  the  configuration  shown  in  Fig. 

2.2. 


The  next  step  involves  cutting  a  3.8  cm  (1.5  inch)  circular  notch  at  the 
mid-height  position  (see  Fig.  2.2).  Once  the  notch  is  cut,  two  thin  teflon  sheets 
cut  to  the  same  geometry  are  inserted  into  the  notch.  This  is  done  to  prevent 
the  notch  from  closing  and  healing  during  the  next  consolidation  stage. 

At  this  stage,  a  grid  consisting  of  orthogonal  lines  is  stamped  on  the 
cylinder.  This  grid  is  located  in  front  of  one  of  the  notch  tips.  It  is  important 
here  to  use  an  alcohol  based  ink  since  the  ink  grid  must  dry  on  the  clay  sample 
while  the  sample  remains  moist.  During  the  fatigue  test  the  lagrangian  grid  is 
photographed  and  the  configuration  of  subsequent  microcracks  can  be 
determined. 

2.5  Final  Consolidation 

After  a  particular  specimen  has  been  prepared  (i.e.  cut  to  the  specified 
geometry,  notched,  etc.),  it  is  placed  between  two  rubber  membranes  and 
inserted  into  a  special  testing  cell  shown  schematically  in  Fig.  2.4.  The  cell  is 
filled  with  sflicon  oil  and  positioned  in  the  test  frame  of  a  pneumatic  analog 
computer  which  consolidates  the  soil  under  conditions  (2).  This  means  that 
consolidation  takes  place  with  no  changes  in  cross  section.  Basically,  the 
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computer  measures  the  volume  of  water  expelled  from  the  specimen  through  the 
porous  stones  and  drainage  lines  and  moves  the  crosshead  of  the  loading  frame 
down  to  compensate  for  the  volume  loss.  Independently,  the  cell  pressure  is 
steadily  increased  at  a  constant  rate  of  50  kPa  (7.25  psi)  per  hour  starting  at 
207  kPa  (30  psi)  and  ending  at  620  kPa  (90  psi).  For  this  clay,  the  ratio  of  the 
cell  to  vertical  pressure  is  0.47.  This  ratio  is  called  the  coefficient  of  earth 
pressure  at  rest,  K^.  Since  the  maximum  cell  pressure  attained  is  620  kPa  (90 
psi),  the  maximum  vertical  pressure  applied  on  all  samples  should  be 
approximately  1320  kPa  (192  psi).  Once  the  maximum  pressure  is  achieved,  it 
is  maintained  constant  for  an  additional  24  hours,  and  afterward,  the 
consolidation  load  is  removed  and  the  cell  pressure  is  reduced  to  the  test 
pressure  24  hours  prior  to  the  test.  The  hydrostatic  rebound  pressure  selected 
was  either  276  or  207  kPa  (40  or  30  psi)  depending  on  the  overconsolidation 
ratio  selected  for  the  particular  test.  The  276  and  207  kPa  (40  and  30  psi) 
rebound  pressures  correspond  to  vertical  overconsolidation  ratios  of  4.78  and 
6.38  respectively. 

It  should  be  noted  that  the  specimens  are  tapered  to  a  larger  cross 

sectional  area  at  the  edges  (see  Fig.  2.2).  This  is  done  to  prevent  failure  near 

2 

the  grips.  As  a  result,  thdr  ctoss  sectional  areas  varied  between  13.78  cm  and 
2  2  2 

20.29  cm  (2.13  in  and  3.15  in  ).  Consequently  an  average  cross  sectional  area 
2  2 

of  15.41  cm  (2.39  in  )  was  used  when  calibrating  the  analog  computer 
displacement  setting. 
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2.6  The  Fatigue  Test 

After  the  consolidation  and  rebound  process,  the  specimens  are  ready  to 
be  tested  for  fracture  studies.  The  test  cell  is  placed  in  frame  which  provides 
the  researcher  with  the  capability  of  applying  a  sophisticated  load  pattern  (1). 
For  all  tests  reported  herein,  however,  this  system  was  used  to  apply  a  cyclic 
torsional  couple  exclusively.  The  loading  frequency  used  was  typically  selected 
at  1.0  cycle/minute  and  applied  in  a  sinusoidal  fashion.  Nevertheless,  some 
tests  were  performed  at  0.5  cydes/minute  to  investigate  the  effects  of  the 
stress/strain  rate  on  the  damage  characterization  (discussed  in  later). 

Similarly,  the  amplitude  of  the  applied  couple  was  typically  chosen  such  that  a 
maximum  of  6.0  Newton-Meters  (approximately  50  in-lbs)  was  reached,  but 
some  tests  were  performed  at  different  amplitudes.  The  amplitude  of  the 
applied  couple  chosen  was  based  on  a  percentage  of  the  required  torque  to 
monotonically  fail  a  similar  cylinder  prepared  under  identical  conditions. 

Details  about  the  loading  frequency  and  magnitude  wiU  be  provided  later  in  this 
thesis  prior  to  discussing  the  results  obtained  for  each  particular  test. 

2.7  Impregnation 

The  sample  impregnation  is  performed  for  two  reasons;  The  first  is  that 
it  enables  the  researcher  the  capability  of  cutting  and  polishing  relatively  smadl 
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sections  without  greatly  disturbing  the  particle  orientation.  The  second  reason 
is  that  the  impregnated  sections  show  the  features  of  interest  more  readily. 
That  is,  since  the  kaolin  powder  is  white  and  the  bees  wax  is  dark  brown  a 
natural  contrast  barrier  is  defined  when  identifying  which  features  are  clay  and 
which  are  wax.  Also,  it  is  believed  that  the  wax  only  replaces  the  larger  voids 
(air  pockets)  in  the  dried  sample  and  simply  surrounds  the  more  densified 
regions  of  clay.  Thus  what  results  from  a  properly  impregnated  and  polished 
section  is  essentially  a  contrast  map  of  densified  features  in  the  material. 

After  the  cylinder  is  tested  under  the  cyclic  torsional  couple,  it  is 
removed  from  the  test  cell  and  allowed  to  air  dry  at  room  temperature  for  a 
minimum  period  of  four  days.  Once  the  specimen  is  sufficiently  dry,  the 
impregnation  sequence  can  commence. 

Initially,  the  bee’s  wax  is  raised  to  a  temperature  of  approximately  110° 
Cin  a  melting  pot.  Once  the  temperature  is  stabilized  the  level  of  the  molten 
wax  is  adjusted  such  that  the  specimen  height  and  the  depth  of  the  wax  are 
approximately  the  same.  Next  the  specimen  is  carefully  immersed  in  the  wax 
and  the  entire  setup  is  placed  in  a  vacuum  chamber.  After  the  vacuum  bell  is 
secured,  an  applied  vacuum  of  104  kPa  (15.0  psi)  is  applied  for  a  period  of 
approximately  2  to  21/2  hours.  This  is  shown  schematically  in  Fig.  2.4  and  in 
the  photograph  sequence  of  Fig.  2.5.  Next,  the  specimens  are  removed  and 
allowed  to  cool  for  a  period  of  approximately  24  hours  before  sectioning. 
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2.8  Cylindor  Sectioning 

Sectioning  is  performed  in  order  to  reveal  characteristic  features  in  the 
interior  of  the  specimen.  Once  iden';ified,  the  morphology  of  these  features  can 
be  studied  with  various  techniques  available  in  microscopy.  In  this  report  the 
majority  of  studies  were  performed  with  a  stereoscope. 

Prior  to  sectioning,  the  specimens  were  usually  photographed  and  the 
section  locations  were  marked  with  a  soft  extra— fine  marker.  Next,  three 
separate  coats  of  epoxy  were  applied  individually  to  the  inner  surface  of  the 
hollow  cylinder.  The  epoxy  was  applied  to  reinforce  the  clay  shell  so  it  would 
better  withstand  the  stress  levels  imposed  on  it  during  sectioning. 

The  rough  cutting  is  achieved  with  the  use  of  a  band  saw.  The  band  saw 
is  only  used  to  reduce  the  cylinder  into  pieces  small  enough  to  mount  in  me 
Buehler  Isomet  Saw  grips.  Note,  that  the  lowest  speed  was  used  to  cut  with  the 
band  saw  and  a  light  steady  pressure  was  applied  during  cutting. 

Refined  sections  were  all  made  with  a  Buehler  Isomet  Saw  and  a  high 
concentration  diamond  tipped  wafering  blade.  Cutting  was  performed  at  a 
blade  speed  setting  of  4.5  and  ethyl— glycol  was  used  for  the  saw  blade 
lubricating  fluid  (see  Fig.  2.6).  These  sections  are  called  "analysis  sections"  in 
this  report.  The  analysis  sections  were  generally  cut  in  either  a  radial  of 
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dicumferential  fashion  shown  in  Fig.  2.7.  Typically,  the  axial  and 
drcumferential  sections  were  all  made  in  the  vicinity  of  the  notch  tip. 

However,  some  sections  were  made  in  regions  away  from  the  notch  tip  either  to 
define  a  reference  level  characterization  of  the  clay  or  for  other  related  studies 
(see  Chapters  3  and  4). 

Ideally,  one  half  of  a  cylinder  would  be  sectioned  drcumferentiallyand 
the  other  half  would  be  sectioned  in  a  radial  fashion  at  5  mm  (0.197  in) 
spadngs.  However,  in  the  event  that  shrinkage  cracks  or  sectioning  dedmation 
eliminate  the  possibility  to  obtain  both  types  of  sections,  a  higher  priority  is 
devoted  to  the  radial  sections.  The  radial  sections  are  deemed  more  important 
since  they  are  the  type  used  to  reconstruct  a  quantitative  damage  evolution  for 
a  given  cylinder  test  (daborated  on  in  Chapter  5). 


2.9  Section  Polishing 

Once  the  sdected  sections  are  made  with  the  Buehler  saw,  the  sections 
are  adhered  to  dther  a  glass  or  aluminum  slide  with  an  epoxy  cement.  After 
the  epoxy  was  given  enough  time  to  dry,  the  polishing  can  begin. 

Polishing  is  performed  on  Buehler  polishing  wheds.  The  polishing 
sequence  is  performed  in  two  separate  stages.  The  first  stage  of  polishing 
consists  of  a  coarse  stage  and  is  done  to  remove  some  of  the  cutting  saatches  as 
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well  as  provide  a  uniform  surface  for  the  microscopic  inspection.  The  second 
stage  is  a  fine  polishing  stage  and  simply  improves  the  quality  of  the  first  stage. 
During  the  first  stage,  a  800  grit  water-resistant  polishing  paper  is  used  and 
during  the  second  stage  polishing  a  billiard  cloth  polishing  cloth  is  used.  In 
both  cases,  cool  tap  water  was  used  as  lubricating  fluid  during  the  polishing. 

Other  helpful  hints  include  the  following: 


1)  Polish  the  section  by  applying  light  pressure  and  maintain  a 
steady  hand  without  rotating  the  wrist. 

2)  Keep  the  polishing  duration  brief  (i.e.  only  allow  the  section  and 
the  wheel  to  be  in  contact  for  no  more  than  a  one  second  interval) 
and  maintain  cool  water  on  the  wheel.  If  the  wax  becomes  to 
warm  from  the  frictional  heat  distortion  of  the  features  can  result 
from  aeep  of  the  wax. 


2.10  General  Use  of  the  Image  Analyzer 

This  section  is  devoted  to  providing  the  reader  with  a  general  description 
of  the  Image  Analyzer  used  on  this  research  project.  The  system  was  originally 
developed  for  use  in  the  medical  research  laboratory.  The  system  purchased  for 
our  use  consists  of  the  following  major  components: 


1)  Nikon  Stereoscope  with  trinocular  head 

2)  35  mm  auto/fixed  exposure  camera  and  shell 
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3)  Video  Camera 

4)  Panasonic  VHF/CRT  Hi— resolution  black  and  white  monitor. 

51  Nikon  Exposure  box 

6)  Houston  Instruments  Digitizing  Tablet 

7)  HP  Vectra  (IBM  PCAT  Compatible). 

8)  Interfacing  card 

9)  HP  7470A  plotter 

lOl  Epson  FX286  Dot  Matrix  Printer. 

11)  Bioquant  Image  Analyzer  software. 


A  schematic  drawing  of  the  system  configuration  is  shown  in  Figure  2.8. 

This  system  essentially  enables  the  researcher  to  accurately  measure 
irregular  features  (to  100  microns)  as  weU  as  to  statistically  quantify 
stereological  information.  The  Bioquant  software  provides  a  selection  of  various 
types  of  measurements  and  computations  which  can  be  made  readily  while 
tracing  the  shapes  of  the  particles  under  the  microscope.  In  Addition,  the 
information  is  stored  in  selected  arrays  for  later  reprocessing.  The  reprocessing 
portion  of  this  software  includes  a  statistical  package  which  allows  the 
researcher  the  ability  to  extract  various  test  statistics  and  observe  measurement 
distributions.  Typical  information  processed  during  this  study  include  area,  and 
aspect  ratio  measurements. 

To  start  the  image  analyzer,  first  make  sure  the  hardware  (equipment)  is 
interfaced  correctly  as  shown  in  Fig.  2.8.  The  Vectra  should  be  shut  off  and  the 
switch  located  on  the  back  side  of  the  Vectra  should  be  switched  to  the  upward 
position.  This  switch  adjusts  the  video  monitor  frequency  so  as  to  be 
compatible  vrith  the  Panasonic  Monitor.  Next,  the  HP  monitor  should  be 
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disconnected  and  the  Panasonic  monitor  should  be  installed.  The  third  step 
involves  simply  turning  on  all  equipment.  At  this  time  the  Vectra  should  boot 
up  on  the  Panasonic  monitor.  After  successfully  reaching  this  stage,  the  user 
should  simply  type  "im”  for  image  and  press  the  enter  key.  This  will 
automatically  start  up  the  Bioquant  software.  A  suggestion  is  to  try  the 
tutorial  package  included  with  the  software  until  a  certain  level  of  confidence  is 
reached. 
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Figure  2.3: 


Description  of  the  soil  test  cell 
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IMPREGNATION  PROCEDURE 


VACUUM 

1  - CLAY  CYLINDER 


Figure  2.4: 


Schematic  for  Specimen  Impregnation. 
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Figuie  2.5; 


Photographs  of  Vacuum  Chamber  used  in  the 
impregnaticn  process. 


35mm  CAMERA 


47 


^.0.  B9»  n 

Sprue*  Pine.  N.C.  29777 

Teteptionc  (704)  799.9061 


EPK  -  KAOUN 


OtiketCeaei^Ntoe  IPty  UM 


S02 

.  4«J0%  MfO 

9.14% 

AJjO, 

.  27.42%  N*jO 

.  0A% 

FtjO, 

.  0J1%  KjO 

.  440% 

roj 

-  0J4% 

>  499% 

Vs 

-  SO3 

•  901% 

C.0 

-  421%  VjOj 

>  <4991% 

Leu  ee  IgePinw  *  1  J.77% 

Prer.Modnirr  •  1.4)% 

Spcdfk  Cra««y  •  2*50  t/cc 

StfMhif  Ow<iwftcte  (19  Wt.  ^SaM|.aMt4  9.1*%  i/wnl  ’ 

Gar  tipeor  10  Min.  •  0J4  ie. 

Oar  lipeer  15.  Min.  •  0.69 
SSoUs(«e4.)  41.  Hn.-  3% 

lelkPfoity 

LopH  '  >  yz.* 

Tieml  (P.ZIKiaA 

09  APwe<*on 
47.J  ifit.  pfi/  ]0P  pir-  <ity 
9H 

i  «i.  'f  telMli  •  9.05 
lO  «l.  ^  tOiiPt  -  9.07 
20  «<.  ^  wild*  *  M5 
M)  *1.  ^  Mints  '  5.19 

Ofctrical  Ce«nlecti»>i7 
20  «i.  ^  Minis  •  no  >M, 

Minimi  Cnn*t«n  (X*r*>  Oif(r»«li*ni 
IC*ninnr(AUOj.  3iOj.  IHjOl  • 

»•«.  MinKlTAPHli  r»p* 

I9«<  MlMl«iFI9fNTi)NFl  • -U.in 


PMifciPegw  WHlirtnn 
CeMe*m*«  %  UeOnije 

40flua«M.l0O 
lOmioont.  90 
5  onoem  •  79 
3  inooa  •  tt 
)  oiierea  .  4# 

.5  moon  •  40 

.2  fluerae  •  20 

Sarfect  Aw 

2t.l  M^/pa 


Sctw  AmSs^s 


*M.vtcsli(%Ma«k 

W«* 

iLuffipi 

w«* 

(AirnoMttf) 

(AirOoiM^ 

0.01 

♦  ID  Mesh 

0.0 

40 

099 

«>lOOM«sh 

0.1 

0.1 

415 

♦  »0Mesh 

0.9 

o.t 

«  325  Mesh 

1.5 

i.i 

*U’«cr>«'asM  thretz^r  KTtent 


CrfMics  Preptnics 

100%  a*T 

Wiffr  97  PttKJCtfT 

59.0 

Dry  .Moduius  of  RKr.v.*t  pv 

595.0 

Uaeir  0<7  Shnnka»; 

9.4 

rndShnnhairCorvlt  % 

11.5 

AbMrptten  Cone  1 1  ''1 

1.0 

Culiet  Properiie^ 

Drainsfe 

TypeeiCaM  - 

W41CT  Rcicniion  -  % 

CsiM*  R^rhmt*  Csee^ii^  *  Mcili)ltn«  9iw« 

Aad  Treated  •  ?  I 100  jm' 

Alkali  Respunoe  lOOyitt' 

H.O*  RravOn  f  f  vivu  lOiifm 

CitW  Vaiae>  L 

*  t 

•  » 

A»tKns«0  Tj  5 

1.: 

90 

As  r<»n«eU  •  Cpfcpi.::.  }*  1 

1.3 

7.0 

C9«np*.ird  Fired  C.—f  '  tW  2 

1.7 

4  J 

Table  2.1:  Composition  of  Kaolinite  Powder 


Chapter  3 


Micromechanisms  of  Deformation 
in  Fracture  of 
Overconsolidated  Clays 


3.1  Intioduction 

This  chapter  is  devoted  to  presenting  and  describing  experimental 
observations.  These  include  photographs,  optical  micrographs  and  other  related 
information  which  illustrate  and  describe  the  miaomechanisms  involved  in  the 
fracture  process  of  overconsolidated  clays. 


3.2  External  Observations 

Under  the  cyclic  torsional  couple,  a  zone  of  damage  steadily  propagated 
around  the  cylinder.  The  zone  generally  consisted  of  observable  discontinuity 
lines  emanating  from  the  horizontal  notch  plane  ( the  direction  of  the  in  plane 
shearing  force)  as  shown  in  Figure  1.6.  The  lines  constituting  this  zone 
generally  deviated  at  an  average  orientation  of  20°  from  the  notch  plane.  Note 
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that  these  lines  represent  slip  surfaces  through  the  cylinder  thickness 
propagating  circumferentially.  The  envelope  of  damage  could  be  generally 
described  as  a  band  symmetrically  located  on  both  sides  of  the  notch  plane. 
Nearly  all  the  rotational  deformation  and  slip  occurs  in  this  band. 

It  should  be  noted  that,  in  general,  no  single  slip  surface  dominated 
enough  to  be  considered  a  main  crack.  Rather,  a  each  surface  contributed  in  a 
fashion  such  that  the  damage  zone  appeared  to  be  made  up  of  a  complex 
arrangement  of  branching  cracks. 

In  order  to  measure  the  amount  of  deformation  localized  within  the 
damage  zone,  an  experimental  technique  was  developed.  This  technique 
involves  stamping  a  grid  of  orthogonal  lines  on  to  the  specimen  prior  to  testing. 
An  alcohol  based  ink  is  used  so  that  the  grid  dries  while  the  clay  specimen 
remains  moist  (refer  to  Section  2.4).  During  the  cyclic  test  photographs  (taken 
through  the  plexiglas  wall,  silicon  oil,  and  the  rubber  membrane)  are  taken 
during  selected  stages  of  the  fatigue  test. 

Photographs  illustrating  the  damage  zone  evolution  through  the 
lagrangian  grid  system  is  shown  typically  in  Figures  3.1  and  3.2.  All 
photographs  in  Fig.s  3.1  and  3.2  are  taken  while  the  maximum  torque  is 
applied.  Notice  that  the  majority  of  the  deformation  occurs  within  the  damage 
zone.  Figure  3.3  illustrates  similai  localized  deformation  lines  in  an  un— notched 
specimen.  That  is,  the  results  from  Figure  3.3  show  that  the  localized 
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deformation  can  occur  in  specimens  which  are  fatigued  without  a  prefabricated 
notch  as  a  focal  point  for  stress  concentration. 


3.3  Internal  Obserrations 


Except  for  a  few  cases,  most  of  the  internal  observations  were  performed 
after  specimens  were  impregnated.  Some  of  these  exceptions  include  some 
preliminary  studies  performed  on  a  scaiming  electron  microscope  (SEM),  and  a 
polarizing  optical  microscope.  However,  the  majority  of  microscopic  studies 
were  opticaL  These  observations  were  generally  performed  after  the  clay 
specimens  were  impregnated  with  bee’s  wax  (Section  2.7),  sectioned  with  a 
Buehler  Isomet  Saw  (Section  2.8),  and  polished  (Section  2.9). 


3.3.1  Undamaged  Phase 

Before  damage  can  be  identified  and  characterized  in  the  kaolinite,  the 
material  must  be  characterized  in  its  natural  state.  Actual  characterization 
studies  will  be  presented  in  Chapter  4,  but  it  is  worthwhile  to  present 
observations  at  this  point. 

Kaolinite  particles  are  platelet  shaped  with  typical  thicknesses  ranging 
between  50  and  2000  nm  and  typical  diameters  ranging  between  300  and  4000 
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nm  (5).  Of  ihe  four  most  common,  day  minerals;  montmorillonite,  illite, 
chlorite,  and  kaolinite,  kaolinite  is  the  largest. 

Clay  minerals  are  formed  by  one  or  more  of  the  following  processes  (4); 


1)  Crystallization  from  solutions. 

21  Weathering  of  silicate  minerals  and  rocks. 

31  Diagenesis,  reconstitution,  and  ion  exchange. 

41  Hydrothermal  alterations  of  minerals  and  rocks. 

5)  Laboratory  synthesis. 


The  day  soil  fabric  has  been  observed  and  studied  by  others  (1,2, 4, 5) 
and  a  scale  hierarchy  in  the  mircostructure  has  been  acknowledged.  This 
hierarchy  describes  the  fashion  in  which  the  material  fabric  is  assembled  from 
miaoscopic  particles.  Scale  hierarchy  has  been  recognized  in  other  materials  as 
well. 


Initially,  the  clay  particles  (10'®  m)  are  usually  aggregated  or  flocculated 
together  in  submicroscopic  fabric  units  called  domains  (10  m).  The  domains, 
in  turn,  form  together  what  are  called  clusters  (10‘®  to  10 m).  And  similarly, 
the  dusters  group  together  to  form  ■peds  or  large  clusters  (10'<  m).  The  large 
dusters  are  large  enough  to  be  seen  without  a  miaoscope. 

A  polished  section  from  an  untested  hollow  cylinder  after  impregnation  is 
presented  in  Figure  3.4.  In  this  micrograph,  the  kaolinite  appears  white  and  the 
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impregnation  material  (bee’s  wax)  appears  dark  brown).  Figure  3.4  shows 
kaolinite  clusters  homgenously  distributed  within  a  more  loosly  densified  matrix 
(water  intermixed  with  loose  particles  of  clay)  which  is  now  presumed  to  be 
replaced  by  wax.  Notice  that  the  observed  clusters  have  a  characteristic  size  on 
the  order  of  10 meters  which  compares  well  with  that  reported  by 
others(l,4,5). 


3.3.2  Damaged  Phase 

Figure  3.5  compares  two  radial  sections  (described  in  Section  2.8)  cut 
from  a  fatigued  cylinder  after  impregnation;  one  was  sectioned  in  an  undamaged 
region,  and  the  other  in  front  of  the  notch  tip.  The  undamaged  section  in  Fig. 
3.5a  shows  the  previously  reported  clusters  homogeneously  distributed  in  the 
wax  matrix. 

The  damaged  section  in  Fig.  3.5b  indicates  substantial  morphological 
changes  due  to  the  applied  loading  condition.  In  this  region  one  notices  a 
change  in  the  size  distribution  of  clusters.  A  few  coalesce  to  produce  larger  and 
others  split  into  smaller  units.  Also,  one  can  see  the  creation  of  horizontal 
strips  along  which  the  clusters  of  clay  have  aglomerated.  Note  that  these  strips 
constitute  surfaces  within  the  cylinder  having  the  orientations  shown  in  Figures 
1.6,  3.1,  3.2.  The  name  adopted  by  the  author  for  the  process  producing  these 
surfaces  is  Localized  Strip  Densification  or  LSD  for  short. 
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Additional  tests  have  indicated  that  when  the  loading  rate  is  reduced,  a 
higher  concentration  of  damage  is  attained.  This  has  been  experimentally 
observed  in  other  materials  and  is  in  agreement  with  theoretical  considerations 
(5).  For  the  case  considered  here,  Figure  3.6  shows  a  series  of  photographs 
taken  of  an  axially  sectioned  specimen  which  was  fatigued  at  a  proportionally 
lower  cyclic  load.  Three  morphologically  distinct  areas  can  be  identified  within 
the  damage  zone.  The  area  closest  to  the  notch  tip  (denoted  as  Section  A  in 
Figure  3.6)  shows  a  network  of  interwoven  densified  surfaces.  Note  that  no 
observable  clusters  are  contained  in  this  region.  The  second  region  shows 
intermixed  clusters  and  densified  lines  (LSD’s)  as  witnessed  earlier  in  Figure 
3.5b.  Finally,  the  third  region  exhibits  vertically  oriented  densified  regions. 

All  of  the  above  changes  in  the  soil  fabric  are  commonly  referred  to  as 
damage.  Strictly  speaking,  they  are  stress  induced,  morphological 
transformations  of  material  at  the  cluster  level. 

The  broken  grid  lines  in  Figures  3.1  and  3.2  provide  experimental 
evidence  that  localized  irreversible  deformation  occurs  along  what  appear  to  be 
slip  surfaces  emanating  from  the  notch  tip.  Figures  3.5  and  3.6  present  material 
transformations  that  occur  within  the  soil  fabric  inside  of  the  LSD  zone.  In 
order  to  provide  experimental  evidence  linking  the  observed  damage  on  the 
outside  of  the  cylinder  to  that  occurring  within  the  interior  the  cylinder,  a 
photograph  was  taken  of  the  comer  showing  the  exterior  and  interior  fabric. 
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This  photograph  is  included  in  Figure  3.7  of  this  thesis.  Note  that  the  interior 
fabric  consists  of  clusters  and  loose  matrix  away  from  the  slip  lines  and  consists 
of  LSD's  intermixed  with  clusters  within  the  slip  line  field. 


3.4  Other  Observations 

While  preparing  the  damage  zone  in  Cylinder  3—3  for  sectioning,  two 
surfaces  at  approximately  60°  from  the  horizontal  notch  plane  broke  free  during 
handling.  The  surfaces  revealed  from  this  incident  indicate  what  the  surface 
profile  along  the  LSD’s  may  be  like.  Photographs  of  these  surfaces  are  included 
in  Figure  3.8  of  this  report. 

Other  experimental  investigations  included  fracture  studies  under  a  non 
cyclic  fast  loading  rate.  Observations  of  the  stamped  grid  deformation  at 
various  time  intervals  (every  0.5  msec)  were  aquired  with  a  Spin  Physics 
SP2000  high  speed  video  camera.  The  rate  of  loading  (applied  torque)  was 
applied  in  a  approximately  linear  fashion.  The  maximum  torque  applied  to  the 
cylinder  was  about  18  Nm  and  the  period  over  which  the  load  was  applied  was 
about  0.25  sec.  Results  from  this  study  showed  a  more  non  cooperative  (defined 
in  Chapter  1)  fracture  behavior  than  that  observed  under  cyclic  fatigue 
conditions.  Photographs  of  selected  cycles  from  this  test  are  given  in  Figure 
3.9. 


55 


Investigations  were  also  performed  with  the  use  of  an  optical  polarizing 
microscope.  Various  types  of  slides  were  prepared  for  microscopic  studies  in 
either  transmission  or  reflection.  The  optical  properties  of  kaolin  have  been 
shown  to  be  biflingent  (3).  This  was  reaffirmed  with  studies  performed  herein. 
That  is,  depending  on  the  relative  orientations  of  the  polarizer  and  analyzer,  the 
kaolin  fabric  would  polarize  or  become  extinct. 

Studies  were  performed  on  impregnated  and  un-impregnated  samples,  as 
well  as  fracture  surface  observations.  In  general,  no  difference  was  noted 
between  the  clusters  and  LSD’s.  However,  both  showed  a  preferred  anisotropic 
orientation. 


3.5  Elements  of  Deformation  and  Fracture 

In  summary,  the  observations  to  date  have  shown  that  undamaged 
saturated  Kaolinite  can  be  considered  as  made  of  two  phases.  The  first  phase  is 
the  continuous  water  medium  (which  has  been  replaced  by  the  wax).  The 
second  phase  is  made  of  randomly  distributed  clusters  with  sizes  on  the  order  of 
0.1  mm.  While  it  is  well  known  that  the  particle  size  is  about  0.001  mm,  it 
appears  that  the  stress  induced  morphological  changes  can  be  studied  at  the 
level  of  the  cluster;  even  though  it  is  aknowledged  that  changes  may  occur 
within  the  clusters.  This  has  implications  when  one  chooses  the  smallest  unit 
on  which  experiments  can  be  conducted  to  study  the  mechanical  behavior  of 
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clay  (see  Section  4.2). 

In  the  vicinity  of  cracks  and  under  fatigue  loading,  morphological 
changes  occur  that  result  in  the  joining  of  clusters  to  form  strips  (Figs.  3.1 
through  3.7).  Based  on  these  observations,  four  micromechanisms  responsible 
for  macroscopic  deformation  can  be  recognized: 


a)  Elastic  deformation  of  both  the  continuous  phase  and  the  clusters. 

b)  Stress  induced  morphological  transformations  resulting  in  the 
growth  or  decay  of  clusters  in  size  and  in  number  within  the 
damage  zone. 

c)  Stress  induced  morphological  transformations  resulting  in  the 
aeation  of  LSD’s  and  networks. 

d)  Slippage  along  the  LSD’s. 
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Photograph,  illustraung  the  internal  microstructure  of  the 
undamaged  clay  aner  impregnation.  The  Kaolinite  is 
white  and  the  bee';  wax  is  dark  brown.  Notice  the 
undamaged  matenai  is  made  up  of  two  phases;  the  dense 
regions  of  clay  called  dusters,  and  water  matrix  which  has 
been  replaced  by  wix. 
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Figure  3.5:  Compaxisou  photcgraph.  of  radial  sections  in  undamaged 

(left)  and  damaged  (right)  regions  of  a  cylinder.  Notice 
that  the  damaged  region  shows  stress  induced 
morphological  transformations  of  material  from  a 
previously  undamaged  state  (clusters),  to  a  damaged  state 
(Localized  Strip  Eensifications). 
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Figure  3.7:  Photograph  of  a  comer  of  an  impregnated  specimen 

illustrating  slip  lines  on  the  outside  of  the  cylinder  (left) 
and  LSD^s  intermixed  with  dusters  in  the  interior  of  the 
cylinder  (right). 
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Chapter  4 


Kaolinite  Cluster  Characterization 


4.1  Introduction. 

Before  the  damage  illustrated  in  Chapter  3  can  be  characterized,  a 
complete  characterization  of  the  material  in  its  natural  state  is  required.  This 
characterization,  in  turn,  can  be  used  as  a  reference  when  observing  and 
analyzing  a  section  of  material  where  damage  is  ea^ected. 


4.2  The  Representative  Volume 


Many  continuum  theories  are  based  of  the  assumption  that  an  idealized 
material  can  be  modeled  as  a  homogeneous  continuous  medium.  In  the  context 
of  continuum  mechanics,  the  material  is  typically  defined  as  follows: 


We  disregard  the  molecular  structure  of  mcdier  and  picture  it  as  b  .tng 
without  gaps  or  empty  spaces.  We  further  srup-^ose  that  all  mathematical 
functions  entering  the  theory  are  continuous  functions,  except  possibly  at 
a  finite  number  of  interior  surfaces  separating  regions  of  continuity.  This 
statement  implies  that  the  derivatives  of  the  functions  entering  the  theory 
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are  assumed  continuous.  This  hypothetical  cordinuous  material  we  call  a 
continuous  medium  or  continuum  (13). 


From  a  material  scientists  point  of  view,  all  real  materials  exist  as  an 
ensemble  of  individual  components  at  one  scale  or  another.  A  typical 
description  is  given  as  follows: 


Two  or  more  atoms,  either  of  the  same  kind  or  of  different  kinds,  are,  in 
the  case  of  most  elements,  capable  of  uniting  with  one  another  to  form  a 
higher  order  of  distinct  particles  called  molecules.  If  the  molecules  or 
atoms  of  which  any  given  material  is  composed  of  are  alike,  the  material 
is  a  pure  substance.  If  they  are  not  alike,  the  material  is  a  mixture  (1). 


In  addition  to  the  separate  views  by  which  material  is  defined,  further 
developments  in  materials  analysis  and  testing  have  shown  two  basic  types  of 
material  properties  to  exist.  These  can  be  described  as  structurally  insensitive 
and  structurally  sensitive  material  properties. 

Structurally  insensitive  properties  are  those  properties  that  can  be 
accepted  as  true  material  properties.  This  type  of  property  is  identified  by  its 
average  response  to  a  particular  flux.  Examples  of  such  properties  are; 
permeability,  conductivity,  density,  elastic  modulus,  etc. 

Structurally  sensitive  properties  can  be  identified  as  those  properties 
which  depend  on  an  extreme  response  to  a  particular  flux.  And  since  extreme 
responses  are  structurally  dependant,  these  properties  become  sensitive  to  the 
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structuie.  Examples  of  this  type  of  property  are;  material  strength, etc.(5, 6). 

The  objective  of  this  section  is  to  bridge  the  two  definitions  of  material 
by  defining  the  minimum  volume  (representative  volume)  of  real  material  that 
can  be  considered  when  continuum  mechanics  is  applied  for  structurally 
insensitive  material  properties.  We  propose  a  formal  definition  of  a 
representative  volume  (RV)  of  mat<*rial  and  a  working  definition  for  the  case  of 
over  consolidated  clays. 


4.2.1  Concept  of  a  Representative  Volume 

In  a  continuous  medium,  material  properties  such  as  mass  density, 
permeability,  elastic  compliance,  etc.,  are  ascribed  to  each  point  within  a  body. 
Similarly,  mechanical  quantities  like  stress,  strain  and  energy  density  can  also 
be  ascribed  to  single  point.  however,  the  material  is  heterogeneous,  these 
prcoerties  become  average  values  ascribed  to  a  corresponding  volume  of 
material.  Different  philosophies  have  been  proposed  to  determine  effective 
properties  of  heterogeneous  materials  (2,3,10,11,12,14).  Some  of  the  more 
common  techniques  are  known  as  homogenization  and  smoothing. 

Each  of  these  techniques  appreciate  the  assodaticn  between  material 
properties  and  a  corresponding  minimum  volume.  Hill  (11),  provides  a  rigorous 
formalism  describing  a  general  free  volume.  Klimontovich  (12)  defines  a 
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correlation  volume  and  radius  by  introducing  a  function  which  is  smoothed  out 
over  a  volume. 

In  general,  a  representative  volume  (RV)  for  a  particular  material  and 
with  respect  to  a  particular  material  property  can  be  described  as  the  minimum 
volume  for  which  the  average  value  of  this  property  does  not  change  when 
comparison  is  made  with  another  volume  of  the  same  size  in  the  vicinity  of  the 
original  volume.  The  size  of  a  RV  is  determined  from  the  statistical 
homogeneity  of  the  material.  That  is,  the  RV  should  be  large  in  comparison  to 
any  distinct  aggregates  within  the  material. 

With  regard  to  mechanical  properties,  it  is  an  accepted  rule  of  thumb 
that  the  diameter  of  a  RV  of  material  is  approximately  one  order  of  magnitude 
larger  than  the  characteristic  inhomogeneity  (e.g..  the  characteristic  aggregate 
size).  In  many  cases,  a  rigorous  assessment  of  an  RV  lacks  immediate 
motivation  because  the  test  specimens  are  many  orders  of  magnitude  larger  that 
the  aggregates  of  the  material  they  are  made  of. 

The  author  believe  that  the  representative  volume  for  a  real  material  is, 
in  effect,  that  which  defines  the  materials  existence  in  terms  of  continuum 
mechanics  (7).  Thus  i;  is  expected  that  all  parameters  that  are  extracted  as 
material  invariants  (i.e.  density,  elastic  compliance,  Poisson’s  ratio  etc.)  will 
have  similar  distributions  and  will  give  rise  to  the  same  RV  size.  This 
expectation  is  based  on  the  following  concept;  the  entity  whi^  h  defines  the 
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heterogeneous  behavior  is  dictated  by  the  material  o£  each  of  the  individual 
components  and  their  respective  configuration.  Since  at  the  size  of  the  RV,  the 
configuration  is  essentially  indistinguishable  and  the  individual  components 
remain  unchanged,  all  global  behaviors  will  be  identically  invariant.  Therefore, 
if  an  RV  size  for  density  is  defined  in  day,  it  is  expected  that  this  same  RV  size 
would  be  representative  for  dastic  compliance  or  Poisson’s  ratio,  etc. 

Rationale  for  computing  an  operational  definition  of  an  RV  involves  the 
rdationship  between  the  RV  and  the  size  of  the  test  spedmen.  If  the  specimen 
size  is  not  a  prescribed  amount  larger  than  the  RV,  statistical  convergence  of 
various  measured  data  may  not  transpire.  In  the  following  subsections,  we 
propose  an  approach  for  determining  the  size  of  an  RV  and  report  its 
application  to  overconsolidated  day. 


4.2.2  General  Evaluation  of  a  Representative  Volume 

Let  A  be  a  parameter  that  characterizes  a  certain  property  A  of  the 
material.  For  a  given  volume  size  V,  measurement  for  A  should  be  obtained  for 
different  dements  each  of  size  V.  Note  that  the  size  of  V  should  be  on  the  order 
of  the  characteristic  inhomogeneity  (i.e.  average  duster  size).  Next,  derivation 
of  the  corresponding  distribution  /v(A)  can  be  ascertained.  After  the  initial 
distribution  /v(A)  is  computed  for  a  particular  V,  the  size  of  V should  be 
increased  and  its  corresponding  distribution  computed. 
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It  is  natural  to  expect  that  for  a  small  V  the  scatter  in  the  values  of  A 
will  be  high.  That  is,  the  distribution  ^(A)  wiU  be  wide.  However,  as  the  size 
of  ^increases,  /v(A)  might  be  getting  narrower  with  the  mean  value  defined  as: 


[4.1]  <A>v  =  /a  /v(A)  dX 


tending  toward  a  limit  A  (<A>  -♦  A  ,  as  Fincreases). 


If  this  is  the  case  then  A  can  be  referred  to  as  a  material  property  while 
* 

taking  A  for  the  value  of  A.  It  should  also  be  noted  that  when  A  is  accepted  as 

a  material  parameter  (i.e.  invariant),  the  corresponding  minimum  volume  of 
* 

material,  V  ,  with  respect  to  the  specimen  shape  and  size  is  considered  as  a 
Representative  Volume. 


♦ 

To  define  the  representative  volume  size  V  ,  it  remains  to  choose 
♦  ♦ 

tolerances  A  A  and  or  such  that: 


a)  if  I  <A>v  —  A  I  <  AA  then,  for  practical  purposes,  <A>v  is 

* 

indistinguishable  from  A  . 


* 

b)  if  the  (Tv  <  O’  where  (Ty  is  defined  as: 


[4.2] 


cry  =  {/ (A-<A>v)2/v(A)  dAp 
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If  the  conditions  listed  above  are  met  then,  for  practical  purposes,  /v(A)  is 

*  _ 

indistinguishable  from  a  delta— function  distribution.  Now  V  is  defined  as  the 
smallest  7,  for  which  the  conditions  in  listed  in  a  and  b  are  met. 


4.2.3  Representative  Volume  for  Stiff  Clays 

We  now  apply  the  formalism  of  Subsection  4.2.2  to  finding  the 
representative  volume  for  stiff  clays.  It  is  found  that  the  average  cluster  size 
has  a  characteristic  dimension  on  the  order  of  10'^  m  and  that  a  scale  hierarchy 
exists  in  the  material  miaostructure  (refer  to  Subsection  3.3. 1,9)  and  that  all  of 
the  stress  induced  morphological  transformations  occur  at  the  cluster  level 
(Section  3.5).  Since  this  hierarchy  exists,  it  is  evident  that  the  RV  size  should 
be  based  on  the  average  cluster  size  and  not  the  size  of  individual  clay  particles 
(see  Figure  4.1).  As  we  intend  to  stay  at  a  level  above  the  cluster  level  (i.e.  the 
level  where  individual  clusters  are  not  distinguishable),  we  begin  constructing 
the  /v(A)  distributions  starting  &om  V  =  (0.6  mm)* .  At  this  size  of  Vit  is 
expected  that  ay  will  be  wide. 

Next,  we  select  a  parameter  for  A,  with  respect  to  which  a  RV  is  sought. 
For  this  particular  case  we  choose  concentration  c  of  densified  clay  in  the  form 
of  clusters  (this  is  observed  in  the  plane  of  polish  and  therefore  is  not  the 
volumetric  concentration).  The  concentration  c  is  computed  as  the  area  of 


clusters  within  a  region  divided  by  the  area  of  that  region:  c  =  c(L)  =  (percent 
of  cluster  area  in  a  square  of  dimension  LxL).  The  reader  should  note  that  what 
will  be  computed  herein  is  the  representative  volume  directly  associated  with 
cluster  concentration.  From  now  on  the  volume  elements  are  understood  to  be 
Lx.LxL  cubes  and  the  letter  L  will  be  used  in  place  of  V  since  V  =  L^. 

It  is  the  belief  of  the  author  that  the  observed  cluster  concentration  is 
directly  related  to  the  density  of  the  kaolinite  material.  That  is,  the  wax 
penetrates  only  the  loose  regions  during  the  impregnation  process  and  simply 
surrounds  the  more  densely  packed  regions.  Thus,  a  measurement  of 
concentration  is  essentially  a  measure  of  some  arbitrary  density. 

In  a  macroscopically  homogenous  region  on  a  plane  of  polish,  a  12.4  mm 
X  12.4  mm  area  was  subdivided  into  an  L\xLx  square  mesh  with  L  =  0.62  mm 
(i.e.  subdivided  into  20  squares  by  20  squares).  Next,  six  successive  sizes  for  L 
were  defined  as  ik  =  {k  =  1,...,6).  For  each  of  the  six  sizes,  nine 
non-overlapping  L^xL^  squares  were  chosen  (each  consisting  of  elementary 
L\xLi  squares  of  the  mesh). 

Cluster  concentration  was  measured  and  recorded  for  each  of  400  squares 
in  a  mesh  pattern  using  the  image  analyzer  (see  Section  2.10).  A 
computer  program  was  written  to  perform  the  following  computations:  For 
each  fc=l,...,6,  the  value  of  c  was  computed  for  nine  neighboring  squares  and 
their  distribution  fk{c)  =  was  constructed.  A  Fortran  listing  of  the 
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program  written  to  process  this  information  for  the  six  successive  sizes  (ik)  is 
provided  in  Appendix  A  and  is  named  REP  VOL.  Gaussian  approximations  for 
the  six  cases  are  shown  in  Fig.  4J2.  Figure  4.3  shows  illustrates  how  the 
standard  deviation  in  concentration  decreases  as  the  size  of  the  volume  analyzed 
is  increased.  Also  the  interpolation  determined  in  Fig.  4.3  was  used  to  sketch 
the  3— D  plot  in  Fig.  4.4  Table  4.1  gives  more  numerical  details  from  the  six 
successive  analyses.  The  cluster  concentration  data  base  (obtained  with  the 
image  analyzer)  used  in  this  analysis  is  listed  in  Appendix  B. 

Since  the  measurements  obtained  from  the  image  analyzer  themselves 
contain  a  certain  amount  of  fluctuation,  a  true  delta  Junction  is  unachievable. 

In  order  to  assess  the  magnitude  of  the  error  associated  with  these  particular 
measurements,  a  typical  cluster  was  singled  out  and  25  successive  area 
measurements  were  performed  on  it.  The  successive  measurements  resulted  in  a 
6%  variation  about  the  mean  (i.e.  the  ratio  of  the  standard  deviation  to  the 
mean  measurement  was  approximately  equal  to  0.06)  Therefore,  a  duster 
concentration  distribution  with  a  standard  deviation  less  than  3%  could  never 
be  expected  regardless  of  the  size  of  the  volume  analyzed  (assuming  a  mean 
concentration  value  equal  to  0.5). 

In  order  to  assess  the  size  of  the  representative  volume,  the  tolerances  for 
*  * 

A  A  and  a  must  be  chosen.  The  results  from  Table  4.1  indicate  that  if  a 

♦ 

tolerance  in  the  mean  concentration  is  selected  as  Ac  <3%  and  the  variation  of 
c  is  on  the  order  of  the  measurement  error,  then  the  characteristic  dimension  of 
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the  representative  volume  for  this  material  is  somewhere  in  the  neighborhood  of 
* 

3  to  4  mm  (i.e.  V  is  somewhere  betv»een  27  mm*  and  64  mm*).  Alternatively, 

* 

if  a  volume  smaller  than  V  is  chosen,  the  information  in  Table  4.1  and  Figure 
4.3  can  be  used  to  estimate  the  associated  error  which  corresponds  to  the 
smaller  volume. 


4.3  Reconstruction  of  the  Cluster  Spatial  Distributions 


In  this  section  we  will  investigate  techniques  for  reconstructing  the 
spatial  distributions  of  clusters.  Studies  of  this  type  motivate  attention  for  the 
following  reasons; 


•  Comparison  of  spatial  distributions  of  clusters  between  an  area 
away  &om  clusters  in  an  undamaged  region  to  that  of  a  damaged 
region  may  show  changes  resulting  from  stress  concentrations. 

•  Comparisons  of  spatial  distributions  of  clusters  on  orthogonal 
planes  may  indicare  whether  the  material  behaves  isotropically  or 
whether  some  anisotropy  exists  at  the  cluster  level.  Even  if  the 
individual  clusters  depict  some  anisotropic  behavior,  the  material 
may  behave  isotropic  if  the  clusters  are  randomly  oriented.  Such 
a  study  may  define  if  the  material  is  statistically  isotropic  at  the 
cluster  level. 


Spatial  reconstruction  involves  using  specified  information  from  a  plane 
of  polish  together  with  certain  assumptions  (usually  regarding  the  particle  shape 
and  orientation)  to  make  predictions  about  the  volumetric  distributions.  For 
our  particular  case,  the  objective  is  to  reconstruct  the  spatial  distribution  of  a 
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pclydispersed  system  of  dusters  homogeneously  distributed  in  an  opaque 
medium  (bee’s  wax)  given  information  from  a  planar  section  randomly  passing 
through  the  medium.  Before  any  relationships  can  be  formulated  linking  the 
spatial  distribution  of  a  particular  volume  to  the  observed  distribution  of  spots 
obtained  from  a  planar  section,  the  duster  shapes  must  be  approximated  with 
some  regular  shape. 

The  first  and  simplest  type  of  polydispersed  system  consists  of  a  system 
of  spherical  partides.  Cahn  and  Pullman  (4)  derived  a  method  for  obtaining 
distribution  of  sphere  diameters  and  plate  thicknesses  from  the  size  distribution 
functions  obtained  along  randomly  oriented  Unes.  Saltykov  (15)  derived  and 
tabulated  a  set  of  coeffidents  which  linearly  relates  the  size  distribution  of 
drdes  in  a  planar  section  to  that  of  spherical  particles  homogeneously 
distributed  in  the  material. 

Sadtykov  assumed  the  spatial  distribution  to  consist  of  a  prescribed 
number  of  dasses  in  a  given  volume.  Each  class  represents  a  spedfic  partide 
size  in  the  3— D  distribution.  With  each  dass,  he  associates  an  unknovm 
volumetric  density  from  this  dass  (#/m3).  In  the  paper  (15),  the  partide  sizes 
are  divided  into  any  number  of  classes  up  to  15.  Next,  Saltykov  relates  the 
above  (up  to  15)  to  the  diametrical  distribution  of  circular  spots  obtained  by 
cutting  the  volume  of  material  with  a  plane  in  a  random  fashion. 

Dehoff  (8)  provides  a  shape  factor  correction  which  can  be  applied  to  the 
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coefBdents  Saltykov  fumisiied.  Dehoff  arrives  at  a  shape  factor  correction  by 
considering  the  spatial  distribution  to  consist  of  a  mixture  of  either  prolate  or 
oblate  spheroids  instead  of  spheres.  Prolate  and  oblate  spheroids  are  both 
classes  of  ellipsoids  generated  by  revolving  ellipses  about  either  the  major  (for 
prolate)  or  minor  (for  oblate)  axis.  Use  of  DehofPs  solution  requires  that  the 
researcher  know  the  particle  type  (either  prolate  or  oblate),  and  the  aspect  ratio 
(the  ratio  of  the  minor  divided  major  axis)  a  priori. 


4.3.1  The  Reconstruction  Modd 

Outlined  here,  is  the  formalism  for  computing  the  relation  between  a 
polydispersed  system  of  prolate  and  oblate  spheroids  homogeneously  distributed 
and  randomly  oriented,  and  a  two  dimensional  distribution  of  elliptical  spots 
resulting  &om  a  plane  of  polish  randomly  passed  through  the  medium.  This 
formalism  follows  closely  to  that  of  DehofPs  except  that  it’s  generalized  to 
include  the  mixture  of  both  prolate  and  oblate  ellipsoids  and  some  notation 
changes  were  made  to  accommodate  for  the  mixture. 

In  Saltykov’s  method,  the  researcher  is  required  to  sort  data  obtained 
from  the  planar  section  and  compute  the  frequency  of  intersecting  a  spherical 
particle  and  obtaining  a  circular  spot  between  radii  r  and  r+Ar.  Similarly, 
Dehoff  requires  that  the  data  be  sorted  according  to  the  frequency  of 
intersecting  a  prolate  (oblate)  particle  and  obtaining  an  elliptical  spot  with  a 


minor  axis  between  b  and  fr-|-A6  (a  and  a+Aa). 

For  the  case  considered  here,  we  require  that  the  data  be  sorted 
according  to  their  equivalent  radsi  obtained  from  elliptical  spots  between  a  range 
r  and  r+Ar.  In  general,  lower  case  letters  will  be  used  to  describe  2-D  features 
in  the  plane  of  polish  and  upper  case  will  be  used  for  3— D  features  in  the  spatial 
distribution. 

4.3.1.1  3— D  Notation 

This  subsection  defines  the  variailes  which  describe  the  spatial  distribution  of 
particles.  A  more  detailed  description  revealing  how  these  variables  relate  will 
be  given  in  a  later  derivation. 

•  -  Number  of  discrete  classes  of  ellipsoids  of  the  "e"  type. 

e=0  ■*  oblate 
€=1  prolate 

•  A  —  Semi-^ajor  aads  of  an  ellipsoidal  particle. 

•  B  —  Semi-minor  axis  of  the  ellipsoidal  particle. 

•  Q  —  Aspect  ratio  of  ellipsoidal  particle  ( Q  =  B/A). 

•  >^)  ~  Equivalent  radius  of  an  ellipsoid  of  the  "e"  type 
and  the  "f  class  (size). 

For  f=0  (oblate)  type  ellipsoid 
4/3  =  4/3  tA^B 
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A  =  RjQ^ 

5=  C^R 

For  e=l  (prolate)  type  ellipsoid 
4/3  =  4/3  ttAB^ 

A  =  R/Q^ 

B=  Q^R 

Nf(R)  —  Number  of  centers  of  "e”  type  ellipsoidal  particles  with 
an  equivalent  radius  Rj  in  a  unit  volume. 


4.3.1.2  2— D  Notation 


Here  we  define  the  variables  which  describe  the  information  which  can  be 
extracted  from  a  plane  of  polish  (test  plane). 


•  a  —  Semi— Major  axis  of  an  elliptical  spot 

•  b  —  Semi— Minor  axis  of  an  elliptical  spot 

•  q—  Aspect  ratio  (a  =  b/ a) 

•  —  Total  number  of  classes  upon  which  a  histogram  of 
equivalent  radii  is  constructed.  This  is  a  user  sdected  parameter 
which  generally  reflects  the  accuracy  of  the  reconstruction.  In 

general,  1^  >'S  (c=0,l).  If  ^  =  S  K^,  then  a  linear  system  of 

equations  will  be  solved  in  the  solution  process.  Otherwise  a  least 
squares  error  approach  will  be  used  to  solve  the  overdefined 
system  of  equations. 

•  n  (i=0,.. .,!:*)  —  Equivalent  radius  of  the  elliptical  spot  of  the 
size. 


•  ni{r)  (i=0,...,At)  —  Number  of  centers  of  elliptical  spots  with 

equivalent  raxlii  greater  than  n-i  and  less  than  or  equal  to  ri  in  a 
unit  area. 

4.3.1.3  Size  Distribution  Rdations 

Consider  an  aggregate  mixture  of  prolate  and  oblate  particles  dispersed 
in  an  opaque  matrix.  Let  the  index  j  refer  to  the  size  of  the  aggregates  for  a 
particular  type  (f)  of  ellipsoid.  Similarly,  let  the  index  i  refer  to  the  size  of 
ellipse  resulting  from  the  intersection  of  a  test  plane  and  a  particle.  This  is 
shown  for  the  case  of  a  prolate  particle  in  Figure  4.5. 

Next,  let  the  particles  be  divided  into  (e=0,l)  classes  for  the  oblates 
and  prolates  respectively.  Also  let  the  increment  between  each  size  of  oblate 
and  prolate  particle  be  given  by  with  A^  not  necessarily  equal  to  A^.  If 
iZiax  depicts  the  maximum  sizes  for  the  distributions  then: 

[4.3]  A^  =  (€=0,1) 

ir 

It  is  assumed  that  all  sections  are  represented  in  a  test  plane  (i.e.  we  will 
analyze  a  test  plane  no  smaller  ihan  a  representative  volume  size).  Thus  it  is 
assumed  that  iZmax  can  be  computed  from  the  dimensions  of  the  largest  ellipses 
in  the  test  plane.  After  ii^ax  are  established,  the  number  of  classes  of  prolates 
and  oblates  can  be  assigned  and  Equation  4.3  can  be  evaluated. 
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The  centers  of  ellipsoids  which  produce  the  subclass  of  sections  lie  in  a 
volume  which  has  a  cross  sectional  area  equal  to  the  area  of  the  test  plane  and  a 
thickness  equal  to  pi-i  —  p\  on  both  sides  of  the  test  plane.  For  a  unit  area  of 
test  plane,  this  volume  is  given  by; 

[4.4]  unit) 2 

Where  p  denotes  the  distance  from  the  center  of  the  ellipsoid  to  the  intersecting 
test  plane.  The  relationship  between  p  and  r  (the  equivalent  radius  of  the 
ellipse  resulting  from  the  intersection  of  the  ellipsoid  and  test  plane)  can  be 
determined  from  pure  analytic  geometry.  That  is,  for  an  e  type  ellipsoid  of  size 
iZj ,  and  a  shape  Q,  there  exists  one  value  for  the  distance  pi  from  the  center  of 
the  ellipsoid  to  the  test  plane. 

Let  the  X'—Y'~Z'  coordinate  system  be  oriented  in  such  a  way  that  the 
Y'  axis  coincides  with  the  axis  of  revolution  and  the  origin  is  located  at  the 
center  of  the  ellipsoid.  Next  let  the  X—Y—Z  coordinate  system  be  located  such 
that  it’s  origin  is  also  located  at  the  ellipsoid  center  but  oriented  so  that  the 
X—Z  plane  is  parallel  to  the  test  plane.  Denote  the  angle  between  the  Y  and  Y' 
axes  by  (p.  This  is  shown  in  Figure  4.5  for  the  prolate  case.  The  equation  for  a 
prolate  eUipsiod  is  given  by: 


\ 


[4.4] 
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The  coordinate  transformation  equations  are  given  by: 


[4.51 


x'  =  X  costp  —  y  sin4> 
y'  =  X  stn<f>  —  y  cos(f> 
z>  =z 


And  the  equation  defining  the  test  plane  is 
[4.6]  y  =  -Pi 

Next  combining  equations  4.5  and  4.6  with  4.4  and  describing  Aj  and  Bj  in 
terms  of  Rj  and  Q,  along  with  describing  oi  and  hi  in  terms  of  n  and  g  yeilds: 


[4.7J 


Pi  = 


(n  -  my 


where: 


* 

I  =  co3^(p  4-  Q  sin^<() 

* 

m  =  3in'^<f>  +  Q  co3^(p 
* 

n  =  (1— Q  )^3in^(p  cos'^(j> 


and: 
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The  planar  density  n(f,0j,t)  is  related  to  the  spatial  density  ivf  by  using 
substituting  the  results  from  Equation  4.7  into  Equation  4.3  to  obtain: 


[4.8]  =  iVf  -  pi) 


Next,  we  average  over  aU  possible  orientations  to  obtain; 


[4.9] 


Ui  = 


y 


1 

y 

€=0  ;=1 


where  Cf  is  defined  as: 


[4.10] 


i-i-Pi)  sirup  d<p 


The  coefficients  C|  can  be  determined  for  a  specified  ellipsoid  type  (e) 
and  class  (jt^)  using  by  integrating  Equation  4.10  and  computing  the  necessary 
values  of  p  from  Equation  4.7. 
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4.3.2  Partide  Distnbatioiis 

Note  that  Equation  4.9  relates  the  densities  of  a  volumetric  distribution 
(Nj’s)  to  that  of  a  planar  distribution  (jii’s).  In  theory,  if  a  large  enough  area  of 
spots  'dusters)  is  used  to  construct  the  2— D  distribution  (i.e.  a  representative 
sample  of  data),  and  if  the  coeffidents  Cj  in  Equation  4.10  can  be  inverted,  the 
unknown  volumetric  densities  can  be  written  in  terms  of  the  known  planar 
densities.  Futher,  if  the  planar  densities  are  refined  into  a  larger  number  of 
dasses  than  the  corresponding  spatial  distribution  (i.e.  >  K^),  an  overdefined 

system  of  equations  results  and  a  least  squares  approach  can  be  used  to  solve  for 
the  unknown  spatial  densities. 

A  fortran  program  named  MORPHOL  was  written  to  perform  such 
analyses.  A  listing  is  induded  in  Appendix  A  of  this  report.  Required  input 
data  for  this  routine  indudes;  a  distribution  of  planar  spots  with  specified 
equivalent  radii  (ui’s),  a  number  of  dasses  for  each  ellipsoid  type  {K^),  the 
aspect  ratio  of  each  ellipsoid  type  (Q^),  and  the  size  range  of  each  ellipsoid  type 
(■S»ax)'  The  output  from  MORPHOL  indudes  spatial  densities  for  each  dass  of 
the  partide  distribution  (Nj),  distribution  plots,  and  total  volumetric  duster 
concentration. 
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4.3.2. 1  Enor  Analysis 

Before  a  spatial  reconstruction  scheme  can  be  used  with  confidence,  an 
understanding  of  the  reconstruction  accuracy  must  be  investigated.  The 
purpose  of  this  subsection  is  not  to  perfDrm  an  elaborate  error  analysis  study. 
Instead,  the  objective  here  is  to  outline  how  such  an  analysis  could  be  performed 
and  to  present  some  preliminary  results. 

In  this  type  of  reconstruction  scheme,  different  types  of  errors  can  be 
introduced.  Some  of  these  include; 

•  Error  in  approximating  a  cluster  with  a  regular  shape  (ellipsoid, 
or  sphere). 

•  Error  in  prescribed  variables  (.Rman  K^,  Cf). 

•  Error  in  assigning  a  descrete  spatial  distribution  for  a  distribution 
which  may  be  more  appropriately  modeled  as  continuous. 

•  Measurement  error  in  ni(r). 

•  Error  in  assuming  random  particle  orientation  (not  applicable  to 
spheres). 

Some  of  these  error  types  can  be  investigated  by  first  defining  some 
artificial  spatial  distribution  of  particles  of  some  regular  shape  (spheres  or 
ellipsoids).  A  two  dimensional  distribution  of  elliptical  spots  can  then  be 
generated  directly  from  the  relation  presented  in  Equation  4.10  (using  the 
coefficients  Cf’s  directly).  The  2— D  distribution,  in  turn,  can  be  used  to 
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reconstruct  a  3— D  distribution  while  introducing  error  in  some  prescribed 
variables.  Afterward,  the  new  3— D  distribution  can  be  compared  to  the  original 
one  and  a  resulting  error  in  the  3— D  distribution  can  be  computed. 

This  technique  i?  illustrated  for  the  case  of  approximating  particle 
shapes.  An  initial  particle  distribution  consisting  of  4  classes  of  spheres  was 
selected  and  is  shown  in  Figure  4.6.  Next,  a  corresponding  2— D  distribution  of 
spots  of  equivalent  radii  was  generated.  Afterward,  the  2— D  distribution  was 
used  along  with  either  prolate  or  oblate  spheroids  with  varying  aspect  ratios  to 
reconstruct  a  new  3— D  distribution.  Resulting  errors  in  the  mean  and  standard 
deviation  of  the  3— D  distributions  were  tabulated.  These  analyses  were 
performed  on  for  three  systems  of  equations;  a  linear  system  (4  equations  -  4 
unknowns),  50%  overdefined  system  (6  equations  —  4  unknowns)  and  100% 
overdefined  (8  equations  —4  unknowns).  These  results  are  plotted  in  Figure  4.7 


4.3.2.2  Quster  Volumetric  Concentration  (Saltykov’s  Approximation) 

A  4.0  mm  x  4.0  mm  cross  section  of  material  (i.e.,  a  representative 
sample)  of  material  was  axially  sectioned  and  polished  from  a  cylinder  which 
was  not  fatigued  {undamaged  specimen).  This  region  is  very  similar  to  that 
photographed  in  Figure  3.4.  Clusters  within  the  4.0  mm  x  4.0  mm  section  were 
traced  with  the  image  analyzer  and  planar  densities  of  cluster  size  and  aspect 
ratio  were  recorded.  This  information  is  given  in  Figure  4.8.  Next,  the  cluster 
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planar  information  was  input  into  the  MORPHOL  routine  and  spatial 
distributions  were  constructed.  These  distributions  were  generated  for  5, 10, 
and  15  classes  and  results  are  presented  in  Figures  4.9,  4.10,  and  4.11, 
respectively. 

It  should  be  noted  that  the  results  presented  in  Figures  4.9  through  4.11 
essentially  show  that  a  planar  cluster  concentration  of  about  50%  translates  to  a 
volumetric  cluster  concentration  of  about  35%. 
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TEST  SPECIMEN  REPRESENTATIVE  INDIVIDUAL  CLAY 


MACRO  SCALE  MESO  SCALE  MICRO  SCALE 


Figure  4.1: 


Scale  hierarchy  in  overconsolidated  clay. 
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CLUSTER  CONCENTRATION  DISTRIBUTIONS 


-INCREASING  VOLUME- 


Figure  4.4  Three  dimensional  plot  of  the  concentration  distributions 

as  the  characteristic  dimension  is  increased. 


94 


Spherical 

Distribution 

R  =0.625  (7j,  =  0.4479 

ave  ^ 


2.0 

eo 

B- 

1.0 


Figure  4.6:  Spatial  distribution  used  in  the  aspect  ratio  enor  analysis 

study. 
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Figure  4.8 
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Data  extracted  from  the  image  analyzer;  a)  Distribution  of 
equivalent  radii  b)  Aspect  ratio  distribution 
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Figure  4.9 
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Plot  of  two  and  three  dimensional  distributions  for  5 
classes  using  Saltykov’s  solution. 
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10  -  CLASSES 
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Figure  4.10 


Plot  of  two  and  three  dimensional  distributions  for  10 
classes  using  Saltykov’s  solution. 
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15  -  CLASSES 
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Figure  4.11 


Plot  of  two  and  three  dimensional  distributions  for  15 
dasses  using  Saltykov’s  solution. 
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REPRESENTATIVE  VOLUME  ANALYSIS 


- 1 

Anal  1 

Dimension  j 

Mean  j 

Std .  Dev . 

No.  1 

(M*E-4)  1 

(%)  ! 

(%) 

— —  1 

1  1 

I 

6.20  1 

50.47  1 

14.54 

^  1 

2  1 

^  —  - - 1 

12.40  i 

• 

00 

9.29 

-- 1 

3  1 

1 

18.60  1 

1 

51.23  i 

5.54 

*-1 

4  1 

24.80  I 

52.24  1 

3.58 

5  1 

31.00  i 

51.20  1 

3.02 

€  1 

- 1 

1 

37.20  1 

- 1 

51.79  1 

2.49 

Table  4.1  Representative  volume  study  results. 


Chapter  5 


Kaolinite  Damage  Characterization 


5.1  Introdaction 

In  Chapter  3  of  this  thesis,  evidence  of  stress  induced  morphological 
transformations  (damage)  of  material  at  the  cluster  level  is  presented.  Included 
is  evidence  of  localized  densification  processes  referred  to  as  Localized  Strip 
Densifications  (LSD’s)  and  Network  Densifications. 

In  general,  characterization  of  damage  involves  both  identification  of 
characteristic  features  and  some  quantitative  description  of  these  features. 
Chapter  4  presents  techniques  which  can  be  used  to  characterize  the  soil  fabric 
in  its  natural  state  (i.e.,  cluster  and  water  matrix)  which  essentially  defines  a 
reference  levd  upon  which  the  damage  can  be  identified. 

This  chapter  is  devoted  to  illustrating  techniques  for  characterization  of 
the  most  common  of  the  material  transformations;  the  LSD’s.  The  LSD 
characterization  procedure  presented  in  this  chapter  is  based  on  experimental 
techniques.  In  other  words,  experimental  techniques  are  employed  to 
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reconstruct  tie  volumetric  distribution  of  LSD%. 


5.2  LSD  Characterization 

The  LSD's  (Localized  Strip  Densifications)  are  shown  in  a  comparison 
photograph  between  two  radial  sections  in  Figure  3.5  and  in  Section  b  of  Figure 
3.6  (axial  section).  The  sectioning  procedure  for  both  radial  and  axial  sections 
is  described  in  Section  2.8  and  illustrated  in  Figure  2.7.  The  LSD's  can  be 
thought  of  as  densified  surfaces  emanating  from  the  notch  tip. 

The  first  step  in  the  characterization  process  involves  making  a  series  of 
radial  sections  through  a  fatigued  and  impregnated  cylinder.  These  sections  are 
usually  equally  spaced  at  approximately  5  mm  intervals  and  start  near  the 
notch  tip  and  continue  through  the  entirety  of  the  damage  zone.  Next,  each  of 
the  sections  is  mounted  on  slides  and  polished  (refer  to  Section  2.9). 

Afterward,  each  slide  is  segmented  into  3mm  thick  bands  below  a  known 
reference  plane  as  shown  in  Figure  5.1.  Each  slide  is  then  individually  placed 
under  the  stereoscope  and  the  image  analyzer  (Section  2.10)  is  used  to  compute 
the  total  LSD  area  in  each  band.  These  areas  are  then  used  to  construct  a 
histogram  for  each  slide  as  illustrated  in  Figure  5.1 

It  has  been  observed  that  the  LSD  area  distributions  are  generally  bell 
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shaped,  thus  a  Gaussian  cnive  is  used  to  approximate  the  distributions  in  the 
axial  directions  for  further  analyses.  These  histograms  and  their  approximating 
distributions  are  illustrated  in  Figure  5.2  for  Cylinder  2—1  and  is  shown  for  for 
others  (Cylinders  2—3,  3—1,  and  5—6)  in  Appendix  C.  In  Figure  5.3,  the  density 
distributions  are  sketched  at  their  respective  locations  along  the  circumferential 
direction  for  the  case  of  Cylinder  2—1. 

The  next  step  in  the  LSD  characterization  involves  constructing  a 
contour  map  of  the  damage  zone.  To  accomplish  this,  the  LSD  density  was 
approximated  with  the  Gaussian  distributions  in  the  axial  direction  and  a  spline 
interpolation  scheme  was  used  in  the  circumferential  direction.  A  fortran 
routine  was  developed  to  perform  this  task  and  generate  a  contour  map  of  LSD 
area  densities.  The  program  is  named  CONTOUR  and  a  listing  is  provided  in 
Appendix  A.  Contour  maps  of  LSD  densities  are  illustrated  for  Cylinders  2—1, 
2—3,  and  3—1  in  Figure  5.4.  /dl  of  the  contour  maps  in  Figure  5.4  were 
constructed  with  contour  lines  starting  at  0.1  mm  levels  and  incrementing  by 
0.1  mm.  levds. 

Notice  that  the  volume  represented  by  the  contour  maps  represent  the 
total  volume  of  LSD  transformed  during  each  of  the  respective  tests.  Thus,  the 
information  contained  in  these  contour  maps  allows  one  to  compute  the  total 
volume  of  material  transformed  from  clusters  to  LSD’s  during  the  cyclic  fatigue 


test. 
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Also  notice  that  the  amount  of  transformed  material  increases  as  one 
moves  away  from  the  notch  tip.  This  is  evidenced  in  Figures  5.2  through  5.4. 
In  Figure  5.2,  Slide  2—1— A  is  nearest  the  notch  tip  and  Slide  2-1-0  is  furthest. 
In  Figure  5.4,  the  contour  maps  show  that  the  highest  LSD  densities  occur 
between  4.and  6  centimeters  in  front  of  the  notch  tip. 


5.3  Evolution 

Observations  of  the  radial  sections  did  not  identify  a  main  crack  within 
the  densified  regions.  Moreover,  external  observations  during  the  cyclic  test 
revealed  a  propagating  zone  of  damage  but  no  one  surface  could  be  identified  as 
a  main  aack.  This  is  evidenced  in  Figure  1.6,  and  in  the  damage  evolution 
photographs  in  Figures  3.1  and  3.2. 

Photographs  of  the  damage  evolution  similar  to  that  shown  in  Figure  3.1 
were  taken  for  specified  cycles  during  the  fatigue  of  Cylinders  3—1  and  5-6. 

Note  that  these  photographs  were  taken  during  the  actual  test  (i.e.,  the 
cylinders  were  photographed  through  the  plexiglas  shell,  silicon  oil,  and  rubber 
membrane).  Since  the  nature  of  the  damage  on  the  outside  and  the  inside  of  the 
specimens  have  been  experimentally  correlated  (i.e.,  in  Figure  3.7  evidence 
showing  the  correlation  between  the  external  slip  lines  and  the  internal  LSD’s  is 
illustrated),  templates  reflecting  the  evolution  of  damage  for  specified  cycles 
was  constructed  from  photographs.  The  basis  for  constructing  the  templates 
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involved  using  a  photograph  of  the  last  cycle  as  a  final  state  and  proportioning 
the  evolutionary  development  of  earlier  cycles  to  it.  It  is  assumed  that  a  direct 
correlation  exists  between  the  amount  of  damage  produced  on  the  outside  of  the 
specimen  to  that  of  its  interior.  Each  photograph  corresponding  to  a  specified 
cycle  was  divided  into  regions.  Next,  percentages  reflecting  the  amount  each 
region  has  evolved  during  that  cycle  were  assigned  to  each  region  thereby 
aeating  a  grid  of  numbers  reflecting  the  overall  evolution  of  the  damage  zone 
called  a  template. 

A  computer  program  was  written  to  multiply  the  template  for  a 
particular  cycle  onto  the  the  contour  map  at  the  final  stage.  The  program 
written  to  perform  this  task  is  called  PZONE  and  a  listing  is  included  in 
Appendix  A.  Results  from  this  program  include  a  3— D  simulation  of  the  LSD 
zone  for  various  cycles.  Processed  results  for  Cylinders  3—1  and  5—6  are  shown 
in  Figures  5.5  and  Appendix  D,  respectively.  The  processed  results  for  Cylinder 
3—1  include  a  3— Z?  plot  of  of  the  damage  density  for  specified  cycles  of  the  test 
(Figure  5.5).  The  results  for  Cylinder  5—6  include  both  3— D  plots  and 
corresponding  contour  plots  for  specified  cycles  (Appendix  D). 


5.4  Integral  Description  of  LSD  Zone  Evolution 


Due  to  the  nature  of  the  damage  zone  evolution  reconstruction 
technique,  it  is  not  expected  that  minute  details  of  a  particular  damage  zone 
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description  at  some  specified  cycle  (see  Figure  5.5  and  Appendix  D)  are 
necessarily  accurate.  Moreover,  a  constitutive  law  which  describes  this  motion 
should  not  be  sensitive  to  these  same  perturbations  (recall  the  representative 
volume  considerations  in  Section  4.2).  Thus,  the  objective  in  this  section  is  to 
present  integral  characteristics  of  the  LSD  zone  evolution. 

It  is  natural  to  decompose  the  LSD  zone  evolution  into  a  combination  of 
elementary  movements.  This  is  in  agreement  with  the  theoretical 
considerations  outlined  in  Section  1.5  and  described  in  detail  in  Chapter  6. 
Examples  of  such  movements  for  the  case  under  consideration  may  be: 

^  —  Rate  of  Translation  of  LSD  zone  with  respect  to  the 

centroid. 

w  —  Rate  of  rotation. 

i  —  Rate  of  deformation. 

Symmetry  of  the  specimen  geometry  and  the  loading  conditions  eliminates  io 
from  these  studies. 

In  addition  to  the  3— D  simulation  of  the  LSD  evolution,  PZONE 
computes  the  centroid  distance  from  the  notch  tip  and  the  total  volume  of  LSD 
for  each  specified  cycle.  Results  from  these  analyses  are  presented  in  Figures 
5.7  through  5.9  for  Cylinders  3—1  and  5—6. 
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5.4.1  Resistiye  Moment  Eyalnation 

Other  integral  descriptions  of  the  damage  zone  relate  to  the  amount  of 
damage  accumulated  during  each  of  the  above  described  elementary 
movements.  In  the  thermodynamic  model  proposed  in  Chapter  6,  reference  is 
made  to  resistive  moments  when  describing  thermodynamic  forces.  These 
resistive  moments  are  related  to  the  amount  of  damage  accumulated  during 
damage  zone  movements. 

The  resistive  moment  due  to  translation  of  the  damage  zone  can  be 
expressed  as  'yRi  where  Rt  is  functionally  related  to  the  the  damage  zone  size 
and  shape  and  is  computed  &om: 

•'sdz 

where  Vsdz  is  the  volume  containing  the  Localized  Strip  Densification  zone  and 
p  is  the  damage  density  and  t  is  the  cylinder  thickness.  This  expression  will  be 
derived  in  Chapter  6  and  is  presented  here  only  to  describe  the  computational 
details. 


Before  equation  5.1  can  be  evaluated,  a  formal  definition  of  the  damage 
density  density  p  must  be  presented.  For  the  case  of  overconsolidated  clays,  it 
is  found  that  microdefects  (damage)  are  3  dimensional  (see  Chapter  3). 
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Consequently,  p  can  be  defined  as: 
[5.2] 


A  Vt  —  amount  of  material  transformed  within  an 
incremental  volume. 

A  V—  incremental  volume  of  material. 


The  incremental  volume  V  is  defined  by  the  area  of  the  damage  zone  where  the 
Strip  Densifications  axe  detected,  multiplied  by  the  wall  thickness. 

Experimentally,  is  evaluated  between  any  two  cycles  by  the 
approximation  given  in  Equation  5.3. 

where  ^Xc  is  the  change  in  centroidal  distances  and  A  Vs^z  is  the  change  in 
volume  of  the  damage  zone  associated  with  translating  the  existing  damage  zone 
to  the  new  centroid  location.  This  calculation  is  shown  schematically  in  Figure 
5.10.  Figure  5.11  presents  the  results  for  Cylinder  5—6.  It  can  be  seen  in  Figure 
5.10  that  Equation  5.3  expresses  the  amount  of  new  damage  accumulated  from 
pure  translation  of  the  damage  zone  per  unit  thickness  of  material. 


in 


LOCALIZED  STRIP  DENSIFICATION  DENSITY  PLOT 


Figure  5.3: 


Three  dimensional  plot  of  LSD  densities  as  related  to  their 
measurement  locations  along  the  axial  and  drcomferential 
directions. 
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Figure  5.4: 
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LSD  area  density  contour  plot  for;  a)  Cylinder  2-1,  notch 
at  (0,100).  b)  Cylinder  2-3,  notch  at  (0,100).  c)  Cylinder 
3-1,  notch  at  (0,150). 
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Cylinder  3—1 

LSD  Centroid  Distance  Plot 
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Figure  5.6:  Plot  of  LSD  zone  centroid  distance  vs.  cydes  for  Cylinder 

3-1. 
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Figure  5.7: 


CYLINDER  5-6 

LSD  Cont-roid  Dist..  vs.  Cyclos 


150.0  175.0  200.0  225.0  250.0  275.  D  300.0 

Cyc 1 QS 


Plot  of  LSD  zone  centroid  distance  vs.  cycles  for  Cylinder 
5-6. 
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CYLINDER  5-6 

LSD  Volume  vs.  Cycles 
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Figure  5.9: 


LSD  zone  volume  vs. 


for  Cylinder  5—6. 
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Schematic  for  Calculation  Procedure 


Figure  5.10; 


Schematic  of  calculation  procedure  for 
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Figure  5.11:  Plot  of  i2i  vs.  cycles  for  Cyliuder  5—6. 


Chapter  6 


Theoretical  Considerations 


6.1  Introdaction 

In  Section  1.5  we  introduce  the  governing  equation  (Equation  1.1)  which 
describes  the  crack— damage  evolution  for  a  cooperative  fracture  process.  This 
equation  results  ftom  treating  the  crack  and  surrounding  damage  as  a  single 
thermodynamic  entity  and  applying  the  laws  of  thermodynamics  of  irreversible 
processes. 

Usually  fracture  is  an  irreversible  process  which  is  often  coupled  with 
other  physicochenaical  processes  like  phase  and  chemical  transformations,  heat 
and  mass  transfer,  etc.  Thermodynamics  of  irreversible  processes  offers  a 
general  framework  to  study  these  phenomena,  in  particular,  by  introducing  the 
thermodynamic  forces.  It  is  demonstrated  herein  that  thermodynamic  forces 
are  distinct  from  conventional  energetic  forces  like  the  /—integral.  In  this 
chapter  thermodynamics  and  energetic  forces  for  thermoelasticity  are  derived 
following  the  thermodynamic  approach  (3,4). 
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6.2  Thennodynamics  of  FractTiie  in  an  Elastic  Medium 

It  is  demonstrated  in  Chapters  3  and  5  that  the  fracture  process  is 
strongly  cooper  alive.  In  this  chapter,  damage  {LSD)  is  considered  as  a  system 
of  material  inhomogeneities,  and  damage  nucleation  and  growth  as  a  material 
transformation.  Damage  can  be  characterized  by  its  density  (Chapter  5)  and 
average  orientation.  It  is  assumed  that  the  orientation  of  inhomogeneities  does 
not  vary  in  the  fracture  process.  Therefore,  the  scalar  damage  density  is 
incorporated  as  the  only  thermodynamic  state  parameter  characterizing 
damage. 

The  stress  tensor  (Tij  and  the  absolute  temperature  T  conventionally 
constitute  a  set  of  state  parameters  for  thermoelasticity.  This  set  is  extended 
by  the  damage  density  p  in  an  elastic  medium: 

[6-1]  {iT-ij,  T,  p} 

In  what  SdUows,  we  derive  the  thermodynamic  forces  associated  with 
damage.  The  local  energy  balance  is  taken  as 

[6.2] 

Here  u  stands  for  the  rate  of  internal  energy  density,  tij  is  the  strain  rate 
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tensor,  the  product  trijeij  represents  the  work  rate  density,  jk  stands  for  the 
heat  flux,  and  the  usual  summation  convention  over  the  repeated  indices  is 
employed. 

It  is  convenient  to  express  the  internal  energy  density  u  in  terms  of 
Gibb’s  potential  density  and  the  entropy  density  r. 

[6.3]  11  =  g+ Ts+aijdi 

Here,  cy  is  the  total  strain  component.  The  entropy  production  Sj  introduced 
in  thermodynamics  of  irreversible  processes  is  defined  as  a  portion  of  the  total 
entropy  production  rate  s. 


where  Se  is  the  entropy  density  rate  due  to  heat  exchange  (for  a  closed  system 
where  no  mass  is  transposed). 


Employing  the  energy  balance  in  Equation  6.2,  decomposition  of  the 
internal  energy  density  in  Equation  6.3  and  the  definition  of  the  entropy 
production  in  Equation  6.4  we  arrive  at: 
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[6.5]  3i  -  +  Cij CTij  +  ^  j 

In  conventional  thermoelasticity,  the  Gibb’s  potential  density  g  is  often 
designated  as  the  thennoelastic  potential  energy  density  t,  and  is  expressed  as  a 
Taylor’s  decomposition  with  respect  to  the  state  parameters  crij  and  T.  The 
coefiSdents  of  decomposition  represent  material  properties  such  as  elastic 
compliance,  thermal  expansion  coeffident,  etc.,  and  the  first  term  of  the 
decomposition  represents  the  reference  level  of  g. 

For  the  damaged  thermoelastic  medium,  the  rate  of  Gibb’s  potential 
density  g  is  affected  by  the  damage  growth  p  in  two  ways,  through  changes  in 
(i)  the  reference  level  of  g  (Gibb’s  Potential),  and  (ii)  the  material  property 
coeflSdents  induded  in  t.  Hence, 

[6-6]  g{aii,  T,p)  =  7((rij,  r)p  +  ^cij,  T,p) 

Here,  7  is  the  difference  between  Gibb’s  potential  densities  in  the  damaged  and 
undamaged  states  per  unit  damage  density;  and  t  is  taken  in  the  same  form  as 
in  conventional  thermoelastidty,  but  with  the  material  property  coeffidents 
being  functions  of  the  damage  parameter  p. 

The  assumption  of  local  equilibrium  yields  thermoelastic  constitutive 


equations: 
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[6.7] 


d-K 

'FT 


p 


=  — s 


(6.8) 


-cij 


Accountiag  for  Equations  6.6  and  6.8  the  local  entropy  production  in  Equation 
6.5  takes  the  form: 


In  the  outline  of  thermodynamics  of  irreversible  processes,  the  entropy 
production  is  conventionally  presented  as  a  bilinear  form  of  generalized  fluxes 
and  forces,  such  as  jv  and  -d^Tj  IP  for  heat  transfer.  Similarly,  if  the  rate  of 
damage  density  p  is  taken  as  a  flux,  the  reciprocal  force  is  -(1/  T)[7  +  [dr! dp)]. 


6.3  Damage  Zone  Propagation 

It  has  been  observed  that  the  damage  zone  {LSD  zone)  in 
overconsolidated  clays  propagates  and  ultimately  leads  specimen  failure  (see 
Section  5.3).  In  the  approach  we  introduce  herein,  the  damage  zone  movements 
will  be  decomposed  into  a  combination  of  elementary  movements;  translation, 
deformation).  In  this  thesis,  we  apply  the  thermodynamic  model  to  the 
translation  of  the  LSD  zone. 
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The  global  entropy  production  is  the  integral  of  Equation  6.9  over  the 
entire  volume  of  the  solid: 

[6.10]  5i  =  J  SidV=-j  ^pdV-j 

V  V  V  V 

The  first  two  integrals  on  the  right  hand  side  of  Equation  6.10  are  reduced  to 
the  those  over  the  damage  zone  Vsdz  since  p  in  nonzero  only  within  this  zone 
and  they  represent  the  global  entropy  production  due  to  Localized  Strip 
Densification.  The  first  integral  is  associated  with  the  energy  consumed  by 
material  transformation  from  an  undamaged  state  into  a  damaged  state  (i.e. 
from  clusters  to  LSD’s).  It  reflects  the  materials  resistance  to  the  strip 
densification  zone  propagation.  The  second  integral  evidently  represents  the 
the  entropy  production  associated  with  the  potential  energy  release  rate,  and  is 
defined  as  the  impellent  of  the  LSD  zone.  The  last  integral  in  Equation  6.10 
reflects  the  entropy  rate  due  to  heat  transfer.  For  the  case  considered  here,  an 
isothermal  condition  wiU  be  assumed  (7T  =  0).  Thus  the  last  integral  in 
Equation  6.10  reduces  to  zero. 

It  is  assumed  that  the  damage  zone  moves  maintaining  a  self-similar 
distribution  of  damage  such  that  the  rate  of  damage  density  p  at  a  given  point 
Zi  in  an  Euler  system  of  coordinates,  can  be  expressed  as 


[6,11] 


^(K)  =  -Vk{6)  ^ 
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where  is  a  position  vector  in  the  movable  system  of  Cartesian  coordinates 
with  the  origin  at  the  crack  tip  and  the  k=l  axis  is  chosen  along  the  tangent  to 
the  notch  and  Kk(^i)  is  the  component  of  the  velocity  vector.  Reducing  the 
general  motion  of  the  Strip  Densification  Zone  to  simple  translation  of  the 
centroid  (i®): 

[6.12]  VyiU)  = 

provided  i,k  =  1,2  and  is  Kronecker’s  delta  symbol.  The  damage  density  p 
in  Equation  6.11  with  6.12  becomes: 

[6.13] 


Upon  substitution  of  Equation  6.13  into  Equation  6.10  we  can  write: 

[6.14]  5i  =  ^(^.^0 

Above,  ^  is  considered  to  be  a  generalized  flux  and  stands  for  the  rate  of 
translation  of  the  damage  zone  as  measured  from  its  centroid  (see  Section  5.3) 
and  consequently,  Xi  is  the  reciprocal  thermodynamic  force.  The 
thermodynamic  force  Xi  can  be  written  as  a  sum  of  an  active  and  resistive  part. 
That  is: 

[6.15]  = 


where: 


[6.16] 


and 


Vsdz 


Vsdz 

Equations  6.16  and  6.17  represent  the  active  and  resistive  components  of  the 
thermodyuamic  forces,  respectively.  For  the  case  considered  here,  Ri  (excluding 
the  7/  T  term)  is  evaluated  in  Subsection  5.3.1.  In  the  next  section  we  wiU 
concentrate  our  efforts  to  re-expressing  Equation  6.17  into  a  recognizable  form. 


6.4  Lmpellent  Forces 

For  a  homogeneous  medium  the  density  of  elastic  potential  energy  t  is  a 
function  of  the  state  parameters  and  does  not  depend  on  coordinates  explicitly: 

[6-18]  X  =  T  p(6)] 


Consequently, 
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where  for  a  two-dimensional  case  ,  i,j,  and  k=  1,2. 


Using  constitutive  Equations  6.7,  6.8,  and  6.19  can  be  written  as 


The  elastic  potential  energy  density  is  defined  as 


[6.21] 


x  =  /-aij£ij 


where  /represents  the  strain  energy  density  which  is  conventionally  expressed  in 
linear  elasticity  as  follows: 

[6.22] 

Upon  substitution  of  Equation  of  Equation  6.20,  6.21,  and  6.22  into  6.16  and 
accounting  for  local  equilibrium  equations 


Ai  can  be  written  as: 
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Finally,  applying  Gauss’s  Theorem  we  arrive  at: 

[6.25]  ^1  =  /-f  (/•«!- 

5^sdz  ^sdz 

In  Equation  6.25,  ry  is  the  component  of  the  unit  outward  normal  to  an 
integration  path  5  Vsdz-  In  the  case  of  an  isothermal  condition  (V  T  =  0)  the 
second  integral  in  Equation  6.25  vanishes.  Therefore  the  expression  for  Ai 
reduces  to  : 


Notice  that  Equation  6.26  resembles  the  well  known  /-integral 
introduced  by  James  Rice  (2,10). 


6.5  Energetic  Force 

In  the  previous  section  the  thermodynamic  crack  driving  forces  in  an 
elastic  medium  are  presented.  In  this  section,  the  conventional  energetic  forces 
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as  derived  by  Eshelby  (1,5, 6, 7, 9)  and  Rice  (2,10)  will  be  introduced  for 
comparison.  Rice  presents  the  J-^ntegral  as: 


r 


Note  that  Equations  6.26  and  6.27  only  differ  by  the  absolute  temperature  term 
( 2^  for  the  isothermal  condition.  Although  these  two  integrals  are  similar, 
identifying  which  is  the  true  force  driving  a  crack  is  at  this  time  speculative 
(3,4). 


The  energy  release  rate  can  also  be  expressed  in  terms  of  Eshelby’s 
Energy  Momentum  Tensor  (1,5, 6, 7, 9)  as: 


[6.28] 


dT 


where: 

[6.29]  =  fSi]  —  tTiittk,] 


and 


/—  strain  energy  density 
ffik  —  stress  tensor  components 
Uk  —  displacement  vector 
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tfij  —  Kroneker’s  delta 

6.6  Discnssioii 

In  this  chapter  we  presented  an  expression  illustrating  that  the  global 
entropy  production  involved  in  the  fracture  process  of  an  elastic  medium  with 
damage  under  isothermal  conditions  (Equation  6.14)  can  be  expressed  as  a 
bilinear  form  of  generalized  flux  and  a  thermodynamic  force.  This  equation 
considers  only  the  translation  of  the  damage  zone.  In  order  to  convert  the 
expression  in  6.14  into  a  constitutive  model,  we  must  first  evaluate  the 
thermodynamic  force  (Equations  6.15,  6.16  and  6.17)  which  contains  an 
unknown  value  for  7  (the  specific  energy  for  densifi cation),  and  determine 
evaluate  the  relationship  between  the  force  and  flux  (e.g.  the  phemonological 
relationship). 

Methods  for  evaluating  the  thermodynamic  flux  (^—  rate  of  translation 
of  the  centroid  of  the  damage  zone)  and  the  resistive  part  of  the  thermodynamic 
force  (Equation  6.17)  have  been  developed  and  are  illustrated  in  Chapter  5. 

Chapter  7  introduces  methods  for  evaluating  the  active  part  of  the 
thermodynamic  force  through  a  semi— empirical  stress  and  energy  analysis. 
Chapter  8  will  tie  the  results  together  and  present  a  constitutive  model  for 
overconsolidated  clays. 
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Chapter  7 


Stress  and  Energy  Analysis 
of  the 

Crack  -  Damage  Interaction 

7.1  Introdactioa 

In  Chapter  6,  a  constitutive  law  based  on  thermodynamics  of  irreversible 
processes  is  outlined.  In  order  to  apply  this  formalism,  knowledge  of  the 
dominant  thermodynamic  fluxes,  and  forces  is  required.  For  the  case  of 
overconsolidated  clays,  the  fluxes  and  the  resistive  part  of  the  thermodynamic 
forces  for  a  translational  model  are  evaluated  and  presented  in  Chapter  5. 

This  chapter  describes  an  approach  for  evaluation  of  the  active  part  of 
the  thermodynamic  forces.  That  is,  the  potential  energy  release  rates  associated 
with  each  of  the  fluxes  (elementary  movements). 

During  the  cyclic  fatigue  tests,  measurements  of  applied  torque  vs. 
rotation  are  recorded  for  specified  cycles.  From  these  measurements,  values  for 
the  potential  energy  (obtained  by  using  the  unloading  portion  of  the 
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torque-rotation  curve)  and  irreversible  work  can  be  computed.  Tbese  energy 
values  can  then  be  used  to  assess  the  total  potential  energy  release  rate  between 
successive  cycles.  Recall,  however,  that  potential  energy  is  released  during  any 
of  the  four  elementary  movements  (translation,  rotation,  expansion,  distorsion) 
of  the  damage  zone.  The  information  presented  in  this  chapter  isolates  the 
potential  energj  release  rate  for  pure  translation  of  the  damage  zone. 


7.2  Solution  via.  Superposition 

A  rigorous  stress  and  energy  analysis  of  this  problem  would  require  the 
reconstruction  of  the  stress  and  displacement  fields  for  the  case  of  a  hoUow 
cylinder  with  a  circumferential  crack  interacting  with  the  microcrack  array 
while  being  loaded  under  torsion.  The  nature  of  this  study,  however,  is 
fundamental  and  thus  a  highly  accurate  analysis  is  not  a  goal. 

In  order  the  simplify  the  problem,  we  will  restrict  our  analysis  to  the 
case  of  an  infinite  plate  (i.e.,  plane  stress  or  plane  strain)  made  of  a  linear 
elastic  material.  For  this  case,  the  general  problem  can  be  decomposed  by  the 
law  of  superposition  into  three  separate  problems.  These  will  be  identified 
herein  as; 


Case  1  — 


A  uniform  plate  free  of  all  cracks  and  microdefects 
subjected  to  a  uniform  shear  and  compressive  stress. 
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Case  2  —  A  plate  with  the  main  crack  only  (i.e.  the  notch)  and  a 
traction  equal  to  the  shear  stress  in  Case  1  applied  to  the 
crack  surfaces. 

Case  3  —  A  plate  with  both  the  main  crack  and  the  array  of 

microcracks  with  the  measured  displacements  applied 
along  the  microcrack  array 

These  cases  are  illustrated  in  Figure  7.1.  By  the  laws  of  superposition,  the 
combined  stress,  strain,  and  displacement  fields,  along  with  the  stress  intensity 
factor  can  be  expressed  as  a  sum  of  their  respective  parts: 

utot  =  «!  +  Ifa  +  «3 

[7.1]  =  S’!  +  2'2  + 

«ii‘  =  **11+ 

Case  2  is  the  classical  case  and  the  solution  is  in  every  elementary  book 
on  fracture  mechanics  (14,18).  If  stresses  and  are  the  tensile  and  shear 
stresses  applied  at  the  remote  locations  on  an  infinite  plate  which  contains  a 
crack  of  length  2c,  the  stress  intensity  factor  for  Case  2  is  given  by: 

[7.2]  ~ 

%  = 

In  the  next  sections  of  this  chapter  we  will  concentrate  our  efforts  on 
developing  a  method  to  solve  the  problem  in  Case  3. 


7.3  The  Ciack-^crocrack  Interaction  Pioblem 

In  recent  years,  the  problem  of  multiple  crack  interaction  lias  been 
addressed  by  varioiis  authors.  This  problem  can  formally  be  expressed  as  a 
system  of  singular  integral  equations.  The  equations  represent  boundary 
conditions  on  the  crack  and  micro— crack  surfaces  (the  usual  boundary 
conditions  require  traction  free  surfaces).  Rigorous  solutions  to  this  problem 
have  been  formulated  for  only  a  select  set  of  micro-crack  configurations 

Rice  and  Tompson  (26)  analyzed  the  interaction  between  a  gliding 
dislocation  and  a  crack  using  an  energy  method  (i.e.,  using  a  Maxwell  relation 
for  the  strain  energy).  Similarly,  Shiue  and  Lee  (32)  studied  the  effect  of  a 
dimb  dislocation.  They  included  solutions  for  both  a  single  dislocation  and  a 
dislocation  dipole.  This  problem  was  also  addressed  by  Lo  (21)  and  Ballarini 
(2,3)  using  complex  potentials  and  by  Erdogan  (14)  for  a  point  force  and 
moment. 

The  problem  of  coUinear  micro-cracks  interacting  with  a  semi-infinite 
crack  was  analysed  by  Rubinstein  (30).  Similarly,  Rose  (27)  stucHed  the  case  of 
a  semi-infinite  crack  interacting  with  a  coUinear  mico— crack.  The  list 
continues  with  various  techniques  on  other  select  problems  in  (1  through  32), 
just  to  name  a  few. 
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7.4  Semi— Empirical  Approach  via  Second  Green’s  Tensor 

Due  to  the  nature  of  the  crack-damage  interaction  problem  (i.e.,  solving 
a  system  of  singular  integral  equations),  solutions  to  many  realistic  problems 
becomes  impractical,  even  with  the  advent  of  supercomputers.  Alternatively, 
certain  authors  have  proposed  semi— empirical  techniques  to  compute  the  SIF 
(Stress  Intensity  Factor)  induced  on  main  crack  from  an  array  of  microdefects. 

Chudnovsky  et  al.  (5,11,12)  propose  a  technique  based  on  a  self 
consistent  method  utilizing  a  double  layer  potential  formulation.  In  this 
analysis,  the  microaacks  are  considered  as  a  continuous  distribution  of 
dislocations  and  the  problem  of  feedback  is  solved  by  approximating  the 
traction  on  the  microcracks  as  a  polynomial  distribution  (using  Willis’s  (34) 
polynomial  conservation  theorem).  The  interaction  between  the  main  crack  as 
well  as  between  the  microcracks  is  considered.  More  recently,  Kachanov  (17,18) 
proposed  as  alternative  approach  by  considering  the  average  tractions  on  the 
individual  microcracks. 

In  general,  for  a  random  configuration  of  a  large  number  cf  microcracks 
the  solution  implies  an  extremely  tedious  and  time  consuming  numerical 
procedure  (8,9,10).  In  1987,  Chudnovsky  and  Ouezdou  (12),  employed  a 
technique  of  using  experimentally  observed  COD’s  (Crack  Opening 
Displacements)  as  the  solution  to  the  microcrack  problem.  The  problem  is 
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formulated  by  using  the  second  Green’s  tensor  (5,11,12)  which  is  defined 

as  the  displacement  response  at  a  point  x  due  to  a  unit  discontinuity  at  a  point 
For  the  case  of  plane  stress,  the  second  Green’s  tensor  is  given  by  ; 


where  is  the  unit  normal  vector  to  the  surface  across  which  the  discontinuity 
takes  place,  u  is  poissons  ratio,  I  is  the  unit  second  rank  tensor  and  R  is  the 
position  vector  (i.e.,  R  =  ^—x). 

The  second  Greens  tensor  in  Equation  7.3  is  then  used  to  to  describe  the 
displacement  response  on  the  main  crack  by  integrating  over  the  observed 
displacements  in  the  miaocrack  array.  Afterward  the  displacement  response  is 
converted  to  stress  by  applying  an  appropriate  stress  operator  Tx  which 
transforms  the  cfisplacement  field  Uk  into  stress  cr\y  Once  the  stress  field  is 
known,  an  effective  stress  intensity  factor  can  evaluated. 

Even  though  this  approach  was  applied  to  the  2— D  problem  for  the  case 
of  Ouezdou  (12),  and  Chabat(5),  it  can  be  easily  extended  to  the  3— D  case. 

In  the  next  sections  of  this  chapter,  a  semi— empirical  stress  and  energy 
analysis  will  be  outlined  and  illustrated  for  the  case  of  overconsolidated  clays. 
This  analysis  will  be  based  on  a  method  of  complex  potentials  but  will  follow 
the  same  general  philosophy  described  above. 
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7.5  Semi— Empidcal  Appioacli  da  Complex  Poteatials 

Many  problems  in  the  theory  of  elasticity  can  be  solved  with  great 
mathematical  simplicity  by  using  complex  variables  (13,23,33).  A  complex 
variable  z  is  formed  by  two  real  variables  x  and  y  such  that: 

[7.4]  z=  x  +  iy 

where  i  represents  and  is  called  the  imaginary  unit.  Muskhelishvili  (23)  has 
shown  that,  for  plane  problems,  many  solutions  can  be  expressed  in  terms  of  a 
pair  of  complex  potentials.  Once  the  potentials  are  defined  for  a  particular 
problem,  the  stresses  and  displacements  can  be  expressed  as  functions  of  the 
potentials  (i.e.,  analogous  to  an  Airy’s  Stress  Function).  If  the  complex 
potentials  are  denoted  by  (p  and  then  the  displacements  can  be  defined  as: 

[7.5]  2G{u  +  iv)  =  K(p  ~z'^'  —lli 


Here  u  and  v  are  the  Cartesian  components  of  displacement,  G  is  rhe  shear 
modulus,  and  k  is  related  to  poissons  ratio  as  defined  in  Equation  7.6. 


[7.6) 


plane  strain 
-*  plane  stress 
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Also,  the  overbai  denotes  the  conjugate  of  the  variable  or  function  and  the 
prime  ” '  ”  denotes  differentiaton  of  the  function  with  respect  to  the  complex 
variable  z. 


Similarly,  the  components  of  stress  can  be  expressed  as: 


(Jxx  +  •T'yy  —  2((^' 

^yy  ~  2iTxy  =  2(^<f)' 

In  the  following  subsections  (i.e.,  Subsections  7.5.1,  7.5.2,  and  7.5.3) 
solutions  to  the  three  problems  outlined  in  Section  7.2  will  be  presented  in 
complex  potential  form.  In  these  sections,  the  following  notation  will  be  used. 


$(z)  =  <p'(£j 
'P(z)  =  f'(z) 


7.5.1  Remote  and  Nominal  Potentials 

This  Subsection  presents  the  potentials  for  the  stress/displacement  fields 
caused  by  the  remote  (Case  1  in  Section  7.2)  and  the  nominal  (Case  2  in  Section 
7.2)  loading  conditions. 

From  the  methods  in  (23),  the  potentials  for  the  remote  loading 
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condition  are  given  in  Equation  7.9. 


(7.9) 


^J.^)  =  j''*  +  K 


Similarly,  the  stresses  and  displacements  produced  from  the  main  crack 
as  expressed  in  Case  2  is  given  in  (24,3)  by: 


17.10) 


♦«(^) ^  («!  + 


^n(^)  =  ^n(i)  -  ^n(2)  “ 


Substituting  the  results  of  Equation  7.2  for  and  iii|j  into  Equations  7.10 
gives: 


[7.11] 


^n(^)  =  +  irj 

2^ 


^n(z)  =  ^  ]^<rSz  2  -  1  z  2)  -  hjz  2  +  i  z 


7.5.2  Complex  Potentials  for  a  Crack  and  a  Dislocation  Dipole 


In  the  counplex  potential  formulation,  discontinuities  (damage)  are 
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modeled  as  a  distribution  of  dislocations.  In  1978,  K.  K  Lo  (20)  presented  a 
solution  (in  the  form  of  a  pair  of  complex  potentials)  for  a  finite  length  crack 
and  a  single  edge  dislocation  embedded  in  infinite  plate.  The  edge  dislocation 
essentially  mod^  a  sudden  change  in  the  displacement  field  (eitlier  a  sudden 
jump,  a  sudden  shift,  or  a  combination  of  the  two). 

In  Lo’s  solution,  the  crack  is  located  on  the  real /imaginary  plane 
horizontally  with  its  tip  at  the  origin.  The  crack  has  a  length  of  2  c  and  the 
edge  dislocation  is  located  at  coordinates  Zq  shown  in  Figure  7.2.  With  this 
solution,  the  researcher  can  compute  the  stress  field  at  a  point  z  due  to  an  edge 
dislocation  at  a  point  Zq  interacting  with  a  crack. 

The  pair  of  potentials  which  make  up  Lo’s  solution,  $  and  can  be 
written  as: 


17.12] 


+^2 

^e=  'Pi  +  ^2 


where: 


[7.13] 


2 


and 
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[7.14] 


^2{z)  =  -  [  aF{z-,Zo)  +  aF{z^Zo)  +  oi(zo-Zo)G(ziZo)  -  clX(z)^ 
^iiz)  =  -  ^iz)  -  z^7'{z) 


with 


[7.15] 


[7.16] 


.iU 


t—¥ 

[Z-Zo) 


{z  -  Zo)^ 


X{z)  = 


^  ^z+2c 


The  dislocation  data  is  included  in  the  complex  constant  a  which  is  defined  by 
the  relation  in  Equation  7.17. 


a  = 

In  Equation  7.17,  fi  is  the  shear  modulus,  /tis  related  to  Poisson’s  ratio 
(Equation  7.6),  and  6  is  a  Burgers  vector  which  denotes  the  jump  in  the 
displacement  at  jzb  (Equation  7.18). 


lib 

7rz(/c4-l) 
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[7.18]  b  =  ei®|[ttr]  +  :{Tie]| 

The  quantities  [itr]  and  [uq]  denote  the  jumps  in  the  tangential  and  normal 
displacements  across  the  dislocation  line.  It  should  be  understood  that  this 
solution  (Equations  7.12  to  7.18)  models  a  finite  length  crack  (2c)  in  an  infinite 
plate  interacting  with  a  semi-infinite  jump  and/or  shift  in  the  displacement 
field  occurring  Zq  (defined  by  Equations  7.16  and  7.17). 

In  order  lo  model  the  observed  slip  lines  and,  in  general,  finite  sized 
aacks  and  micro— cracks,  a  solution  for  a  finite  jump  and/or  shift  in 
displacement  inceracting  with  a  crack  is  required. 

In  1988,  Ballarini  and  Denda  (2)  derived  an  analytical  solution  for  a 
dislocation  dipoJe  interacting  with  a  semi-infinite  crack.  In  their  derivation, 
they  used  Lo’s  solution  (20)  and  superimposed  the  effects  of  a  pair  of  edge 
dislocations,  with  Burgers  vectors  equal  in  magnitude  but  opposite  in  direction 
separated  by  an  infinitesimal  distance. 

This  solution  (2),  is  limiting  in  our  studies  because  the  the  crack  length 
(notch  length)  is  in  many  cases  smaller  than  the  preceding  damage  (see  Chapter 
4).  Thus,  a  solution  for  the  finite  sized  dislocation  dipole  will  be  introduced 
using  the  philosophy  introduced  by  Ballarini  and  Denda  (2)  along  with  the 
potentials  presented  by  Lo  (20).  For  the  finite  sized  dislocation  (fipole,  the 
principle  of  superposition  will  be  invoked  and  a  pair  of  edge  dislocations  will  be 
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used.  In  this  approach  the  spacing  dzo  is  not  required  to  be  infinitesimally 
small.  This  is  iHnstrated  in  Figure  7.3.  Consequently,  the  complete  solution  for 
the  dislocation  dipole  interacting  with  a  crack  is  given  by; 

$d(A2b)  =  ^e{z,ZQ,a)  +$e(z,2o+dzo -a) 

[7.19] 

^d(2,-Zb)  =  ^eiZyZoyOc)  +  '9^{z,Zo+dzo-a) 

where  and  are  given  by  Equation  7.12.  A  similar  expression  can  be 
written  for  an  array  of  dipoles.  This  problem  is  the  one  of  most  practical 
interest  since  slip  lines  (see  Chapter  3),  cracks,  microcracks  and  other 
discontinuities  within  a  continuum  can  be  modeled  with  an  array  of  dislocations 
and/or  dislocation  dipoles.  Since  the  law  of  superposition  is  valid  for  potentials, 
the  complex  potentials  for  an  array  of  dipoles  can  be  written  as: 

n 

t=l 

[7.20] 

n 

t=l 

7.6  Stress  Field  Evaluation 

The  information  presented  in  Sections  7.2  through  7.5  provide  the 
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necessary  tools  to  compute  the  stress  field  in  the  vicinity  of  the  crack  and 
damage.  In  pimdple,  the  slip  surfaces  shown  in  Figures  3.1  and  3.2  can  be 
modeled  with  a  distribution  of  dislocation  dipoles.  Thus,  measured  slippage 
along  the  discontinuity  lines  whose  orientation  and  magnitude  can  be  extracted 
from  photograplis  can  be  modeled  with  an  array  of  dipoles  (see  Equation  7.20). 

A  fortran  routine  was  written  to  generate  contour  plots  of  selected 
components  of  stress  using  the  information  Sections  7.2  through  7.5.  The 
program  was  named  STRESS  and  a  listing  is  included  in  Appendix  A.  The 
program  STRESS,  utilizes  the  complex  operations  available  in  the  Mircosoft 
Version  3.2  Fortran  Compiler  to  compute  the  stress  field  from  the  potentials. 
Input  for  this  routine  includes  the  slip  line  configuration  and  the  Crack  Sliding 
Displacement  (CSD)  along  each  slip  line.  Other  input  information  includes  the 
remote  loading  stress  (tTg^,  tJ),  crack  length,  elastic  modulus,  condition  of  plane 
stress  or  plane  strain. 

The  output  of  program  STRESS  is  a  contour  map  of  equal  stress 
component  magnitude  for  the  component  selected.  Six  components  of  stress  are 
available.  They  include  the  Cartesian  components  of  stress,  (r^x,  o'yy,  and  r^y, 
as  well  as  the  principle  stresses  (maximum  and  minimum)  cTpi,  and  (Tp2,  and  the 
maximum  shear  stress,  Tnax-  These  components  are  defined  in  the  Mohr’s 
diagrams  in  Figure  7.4. 

It  should  be  noticed  that  the  maximum  principle  stress  is  defined 
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herein  as  the  principle  stress  component  which  is  largest  in  magnitude.  Thus, 
as  the  Mohr’s  circle  translates  through  a  zone  of  pure  shear,  the  C7pi,  component 
will  change  sign  (see  Figure  7.4).  When  the  <Tpi  contour  plot  is  inspected,  zones 
of  pure  shear  are  readily  identified  since  the  sign  change  in  produces  a  sharp 
transition  from  dashed  (compressive)  to  solid  (tensile)  lines  or  vise  versa.  This 
phenomena  will  be  illustrated  in  some  following  examples. 

For  all  of  the  of  the  stress  and  energy  analyses  performed  in  this  chapter, 
the  following  parameters  were  used: 

E  =  11200  psi 
V  =  0.48 
plane  strain 
=  20.0  psi 

(T^  =  —30.0  psi  or  0.0  psi 

The  first  case  analyzed  was  to  plot  contours  of  equal  stress  for  the  case  of 
a  single  crack  loaded  under  pure  shear  (mode  iTjj).  Five  components  of  stress 
are  illustrated  in  Figure  7.5;  the  three  Cartesian  stress  components  (<7xxj  <^yy, 
Txy),  the  maximum  principle  stress  o-pi,  and  the  maximum  shear  stress  rmax- 
Notice  that  the  maximum  shear  stress  need  not  be  zero  on  the  crack  face  since 
only  two  of  the  three  stress  components  (ayy,  Txy)  are  specified  to  zero  by  the 
aack  face  boundary  conditions. 

Next,  stress  field  contour  plots  were  generated  illustrating  the 
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interaction  between  the  main  crack  (notch),  and  a  single  dislocation  dipole 
symmetrically  located  in  front  of  the  crack.  A  unit  of  sliding  in  the  same 
direction  as  observed  in  Figures  3.1  and  3.2  is  was  assigned  to  the  dipole.  For 
this  case,  no  remote  loading  was  considered  (i.e.,  =  0)  since  the 

objective  here  is  to  isolate  the  effects  due  to  the  localized  displacement.  A 
schematic  illustrating  this  problem  is  included  in  Figure  7.6.  The  contour  plots 
for  (Txx,  <7yy,  Vxy,  Upi,  and  rnax  are  included  in  Figures  7.7  through  7.11, 
respectively.  In  these  plots,  the  asymptotic  stress  field  around  the  crack  tip  is 
magnified  placed  in  the  lower  left  corner  of  the  plots.  The  asymptotic  plots  in 
the  lower  left  comers  for  Figures  7.7  through  7.11  are  plotted  at  the  same  scale 
as  those  in  Figure  7.5.  This  was  done  so  the  effects  of  the  dislocation  dipole  on 
the  crack  can  be  readily  compared  to  those  produce  by  remote  loa.ding. 

The  next  case  analyzed  was  the  case  of  a  single  dislocation  dipole 
interacting  with  the  main  crack  (similar  to  the  above  case),  but  the  dipole  was 
oriented  so  as  to  produce  a  20°  angle  with  the  z-axis  (see  Figure  7.12).  The  20° 
angle  was  selected  since  it  represented  the  typical  orientation  of  the  slip  surfaces 
(see  Figures  1.6,  3.1,  3.2).  Again,  five  contour  plots  illustrating  the 
crack— dipole  interaction  are  included  in  Figures  7.13  through  7.17. 

Next  we  will  illustrate  how  this  crack— mircocrack  interaction  can  be 
investigated.  The  miaoaacks  are  to  be  modeled  with  an  array  cd  dislocation 
dipoles. 
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During  the  damage-zone  initiation  a  dog-bone  cracking  configuration 
was  observed  and  is  shown  in  Figure  7.18.  The  dog— bone  cracks  are  modeled 
with  a  distribution  of  d'poles  such  that  they  produce  an  elliptical  crack  sliding 
distribution  (this  corresponds  to  a  constant  traction  assigned  to  each  dog— bone 
aack).  The  configuration  for  this  case  is  illustrated  in  Figure  7.19,  and  stress 
contour  plots  for  rxy,  ffpi,  and  Tmax  are  included  in  Figures  7.20,  7.21,  and  7.22, 
respectively. 


7.7  Stress  Intensity  Factor  Analysis 


The  stress  intensity  factors  can  be  defined  in  complex  form  (2,3,25)  as: 


[7.21) 


Kl+£Kjj  = 


I  im  -/Hz  (cTyy  +  ITxy) 


In  order  to  compute  the  SIFs  (Stress  Intensity  Factors)  caused  by  the 
dislocation  dipole,  we  start  by  determining  the  SIF  for  a  single  edge  dislocation. 
Here,  we  substitute  substitute  Equations  7.7,  and  7.8  into  7.12  to  yield: 


[7.22]  Kj+iKjj=  lim^fHz 
V'i^O 


^e(-2,>Zo)+^e(^,2o)+^ '  e(z,2o)+^'e(2,2o) 


Substituting  Equations  7.12  through  7.18  into  7.22  and  taking  the  limit  results 
in  Equation  7.23 
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[7.23] 


j  t  g  c  S(zo) 


In  Equation  7.23,  8()  denotes  the  real  part  of  a  complex  value  and  S()  denotes 
the  imaginary  part. 

Since  the  law  of  superposition  is  valid  for  stress  intensity  factors,  the 
SIFs  obtained  for  a  single  edge  dislocation  can  be  summed  in  a  similar  manner 
to  that  for  the  potentials  (see  Equations  7.19  and  7.20).  Consequently,  the  SIFs 
for  a  single  dislocation  dipole  and  an  array  of  dipoles  can  be  expressed  in 
Equations  7.24  and  7.25. 


[7.25] 


Three  different  fortran  programs  were  written  to  perform  various 
analyses  related  to  the  stress  intensity  factor  study.  These  routines,  and  their 
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respective  results  will  be  discussed  iu  the  following  paragraphs. 

The  first  of  the  three  routines  is  called  KIJ  (listing  included  in  Appendix 
A)  which  plots  a  non— dimensionalized  SIF  vs.  angular  variation  ^  (for  Zo=  Xo+ 
tyb;  0  =  tan-^{yolxo) )  denoting  the  coordinates  of  the  dislocation  dipole.  The 
SIF’s  are  non— dimensionalized  by  the  relation  expressed  in  Equation  7.26. 


3 


where 

|i|  =  J  bi+h} 

2o  =  2^j  +  X’l/o 

[7.27]  zo+dzo  =  (xo+dxo)  +  KVo+dyo) 

P  =  J  4  +yo 
dp  =  J  (dib)^+  (dyo)* 

The  effective  SIF’s  for  two  different  cases  were  plotted;  one  due  to  an 
opening  dislocation  dipole  (Case  for  by)  oriented  with  0  =  0°  (0  is  defined  in 
Equation  7.18),  and  another  shear  dislocation  dipole  (Case  for  6x)  with  0  =  0°. 
Plots  for  these  two  cases  are  presented  in  Figure  7.23.  These  results  agree  with 
those  presented  by  Ballarini  (2,3)  for  the  case  of  an  infinitely  long  main  crack. 
Figure  7.23  shows  the  efiect  (i.e.,  amplification  or  shielding)  the  dislocation 
dipole  has  on  the  main  aack.  These  are  summarized  as: 
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For  the  Case  of  by 


Mode-I 

Mode-n 


0  <  69“  ■*  Amplification! 

0  >  69°  -*■  Shielding  J 

0  <  360  j  ^  >  iiQo-^  Amplification 
36o</S<110o  -►Shielding 


and 


For  the  Case  of  6* 


Mode— I 
Mode-n 


0  <Z6°  ,  0  >  110°  -►Amplification! 
36o<  0  <  110°  ShieMing  j 

0  <  30°  ,83o<  0  <  125o-^  Amplification 
83o<  0  <125°  ,  0  >  125tw  S  h  i^ng 


Another  fortran  program  called  SIF  (listing  in  Appendix  A)  was  written 
to  produce  contour  plots  of  equal  levels  of  Green’s  function  for  tine  stress 
intensity  factor  denoted  Gsif.  In  particular,  Gsif(ii,J2)  defines  tine  stress 
intensity  factor  at  the  aack  tip  caused  by  a  dipole  dislocation  at  coordinates 
(lijXj).  The  magnitude  for  the  stress  intensity  factor  is  non— diimensionalized  by 
the  following  relation: 

[7.28]  Gsifj  -  iGsifjj  =  K*  -  iK\\  = - ^ - (Aj  -  iK^) 

Vxc  \b\ dp 


Results  from  SIF  are  included  in  Figures  7.24  through  7.27.  Figure  7.24 
shows  plots  of  equal  stress  intensity  factor  for  both  Modes  I  and  II  due  to  a 
single  dislocation  dipole  with  an  applied  unit  opening  displacement.  Similarly, 
Figure  7.25  shows  these  results  for  Modes  I  and  11  due  to  a  single  dislocation 
with  an  applied  unit  shear  displacement.  These  results  (Figures  7.24  and  7.25) 
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compare  with  those  presented  by  others  (2,3,12).  Figures  7.26  and  7.27 
reproduce  the  same  analyses  performed  in  7.24  and  7.25  except  the  dislocation 
dipole  is  oriented  at  20°.  The  orientation  6  =  20°  is  analyzed  since  this  is  the 
typical  orientation  of  the  LSD  lines.  The  information  contained  in  these  plots 
show  where  the  zones  of  amplification  and  shielding  occur  and  how  these  zones 
are  affected  when  the  discontinuities  are  inclined  at  20°. 

A  third  analysis  on  was  performed  on  a  particular  configuration  of  crack 
and  damage.  Detailed  photographs  of  the  last  cycle  from  the  Cylinder  5-6 
fatigue  test  were  used  to  create  the  composite  photograph  of  the  crack  and 
damage.  The  zone  of  damage  (consisting  of  slip  surfaces)  was  approximated 
with  27  descrete  slip  lines.  A  photograph  of  the  zone  and  the  approximating 
slip  lines  is  illustrated  in  Figure  7.28.  Measurements  of  CSD  (Crack  Sliding 
Displacement)  were  recorded  for  each  of  the  27  slip  lines.  Ten  dislocation 
dipoles  per  slip  line  for  a  total  of  270  dipoles  were  distributed  to  model  the  zone 
of  damage.  A  Program  call  KMIN  (listing  in  Appendix  A)  computed  the 
Mode-n  stress  intensity  factors  caused  by  the  damage  array  (Equations  7.24 
and  7.25)  and  the  remotely  applied  load  (Equations  7.2)  along  with  a 
cumulative  result  denoted  ffdamage,  l^cracic,  and  iftotai,  respectively.  KMIN 
computed  these  values  for  various  crack  tip  locations  starting  at  xhe  notch  tip 
and  extending  through  the  damage  zone.  The  SIF  magnitudes  are  normalized 
by  the  values  obtained  for  this  material  by  Kennedy  (31).  Plots  of  iircrack, 
l^aaagej  and  Ktotai  VS.  imaginary  crack  tip  location  are  illustrated  in  Figure 
7.29.  The  reader  should  note  that  the  total  SIF  (Ktotai)  is  approximately  equal 
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to  zero  at  the  same  location  where  the  centroid  of  damage  was  determined  for 
this  cyde.  This  finding  suggests  that  the  Mode-II  fracture  in  OTcrconsolidated 
days  resembles  that  of  a  Dugdale— Barenblatt  model  (15,19)  if  an  imaginary 
crack  tip  is  located  at  the  centroid  of  damage. 

Although  not  e^qjlidtly  reported,  KMIN  also  computed  the  same  SIF 
results  for  Mode— I.  In  general,  Mode-I  effects  can  be  induced  the 
unsymmetrical  devdopment  of  the  damage  zone  (Figure  7.28).  However, 
■K'jdaiBage  never  exceeded  more  that  4%  of  /Tj^danage  and  the  hydrostatic  effects 
=  —30  psi)  caned  any  Mode— I  propagation  (i.e.,  Kjtotal  =  0). 

7.7.1  Stress  Intensity  Factor  Analysis  for  Continuously  Distribiited 
Dislocations 

It  is  recognized  that  the  above  results  are  only  valid  for  tlie  particular 
configuration  shown  in  Figures  7.28  and  7.29  and  that  a  more  general  approach 
would  may  rendure  more  worthy  results.  In  this  subsection  we  will  outline  a 
method  for  computing  the  SIF’s  caused  from  the  distributed  damage  illustrated 
in  Chapter  5. 

Consider  a  square  dement  of  material  extending  through  the  cylinder 
thickness  within  the  LSD  damage  zone  as  illustrated  in  Figure  7.30.  It  is 
expected  that  some  of  the  LSD  lines  (surfaces)  do  not  all  extend  to  the  outer 
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wall  of  the  cylinder  and  thns  the  actual  discontinuity  density  may  be  more 
realistically  depicted  by  utilizing  the  LSD  density  measurements. 

In  general,  the  total  SIF  can  be  written  as  a  combination  of  that  due  to 
the  remotely  applied  load  (Kq)  along  with  that  of  the  LSD  array  (Aifsdz)-  This 
can  be  expressed  as: 

[7.29]  Ktot  =K^  +  AKsdz 

where: 

[7.30]  Ko  = 

and: 


[7.31]  AJiTsdz  =  I  Gs^p,Q)  ^x,y)  dV 

Ksdz 

In  Equation  7.31,  G^if(p,9)  denotes  the  Green’s  Function  for  the  stress 
intensity  factor  for  a  unit  discontinuity  located  at  p  and  oriented  by  6.  The 
expression  for  the  Green’s  Function  is  written  in  Equation  7.28  and  is  plotted 
for  in  Figures  7.24  through  7.27.  in  Equation  7.31  denotes  the 

concentration  of  LSDs  within  the  damage  zone  and  has  a  dimension  of  and  can 
be  written  for  a  particular  LSD  orientation  as: 
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where  t  is  the  cylinder  thickness. 

Thus,  the  total  SIF  as  expressed  in  Equation  7.31  can  be  -written  in  the 
following  form: 

[7.33]  Ktot  =  Ko  1  +  ^JJ  G{x,y)  ^x,y)  dx 

Vsdz 

In  order  to  employ  Equation  7.33,  we  need  only  to  define  the  LSD 
concentration  iS{x,y).  A  method  will  be  proposed  herein  as  an  illustrative 
example  for  constructing  the  LSD  concentration  from  the  distributions 
constructed  in  Chapter  5. 

If  we  assume  that  the  number  of  elemental  discontinuity  lines  are  of 
average  orientation  (i,e,  9  =  ±  20®  depending  if  above  or  below  the  aj-axis),  and 
that  the  discontinuous  displacement  within  a  given  element  is  equal  to  the  sum 
dipole  displacements  within  that  element,  the  concentration  for  this  element 
can  be  written  determined. 

In  the  example  proposed  in  this  subsection,  a  constant  dipole 
displacement  was  assumed,  which  implies  that  the  total  discontinuous 
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displacement  within  across  the  damage  zone  is  proportional  to  thie  volume  of 
damage  created.  Further,  the  total  number  of  dipoles  within  an.  element  are 
assumed  to  be  proportional  to  the  damage  density. 

For  simplicity,  an  LSD  zone  is  assumed  to  have  the  simpEfied  form  of 
that  shown  in  Figure  7.31.  A  series  of  programs  called  KMSM  and  PLDS 
(listing  in  Appendix  A)  performed  the  analysis.  Figure  7.32  illustrates  the 
results  for  the  SIF  due  to  damage  only  (Aifsdz  in  Equation  7.31)  as  well  as  a 
dislocation  density  scattergram  in  a  comparable  analysis  to  that  performed  for  a 
particular  configuration  in  Figure  7.29. 

Notice  that  this  generalized  analysis  also  illustrates  that  a  location  where 
all  of  the  stress  field  singularities  cansel  appears  within  the  damage  zone.  This 
is  similar  to  that  shown  in  Figure  7.29  and  illustrates  in  a  more  general  sense 
that  a  phenonima  of  a  modified  Dugdale— Barenblatt  model  with  a  tip  located 
within  the  iftot  =  0  vidnity  may  actually  occur  in  our  material. 


7.8  Energy  Release  Rate  Analysis 

In  this  section  we  will  introduce  methods  for  computing  the  energy 
release  rates  for  both  the  near  (at  the  notch  tip)  and  far  (around  the  entire 
damage  zone)  fields.  From  LEFM  (Linear  Elastic  Fracture  Mechanics)  the 
energy  release  rate  of  the  notch  tip  is  related  to  the  SIF  by  Equation  7.34. 
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[7.34| 


'near  — 


- w - 


where 

[7.35] 


E' 


E  -*■  piane  stress 
E 

-» plane  strain 


The  energy  release  of  the  entire  damage  zone  will  be  referred  to  herein  as 
the  far  field  ERR  (Energy  Release  Rate)  and  denoted  by  Jfar-  Budiansky  and 
Rice  (4)  provide  expressions  for  the  ERR  in  complex  form  as; 


Thus,  7far  can  be  evaluated  by  performing  a  numerical  contour 
integration  around  the  microdefect  array  by  using  the  potentials  in  Equations 
7.9,  7.10,  and  7.19. 


Again,  a  fortran  routine  named  RENG  was  written  to  perform  such  an 
analysis.  This  routine  reads  in  the  microdefect  file  and  evaluates  the  near  and 
far  field  ERR’s.  RENG  utilizes  a  rhomberg  integration  technique  to  perform 
the  contour  integration  and  a  listing  is  included  in  Appendix  A. 

The  configuration  shown  in  Figure  7.25  (Cylinder  5-fi)  was  analyzed  and 


the  following  results  were  obtained: 


159 


^ear  =  1528  J/M^ 
/far  =  149  J/M2 


7.9  Snmmaiy 

The  information  contained  in  this  chapter  formulates  the  stress  and 
energy  analysis  of  the  crack— damage  interaction  problem.  The  solutions  are 
expressed  in  terms  complex  potentials  and  the  results  obtained  from  these 
analyses  provide  insight  in: 


•  The  asymptotic  stress  fields  in  the  vicinity  of  the  main  crack,  the 
stress  fields  for  the  crack-dipole  and  the  stress  fields  for  the 
dogbone  aack  configuration  as  applied  to  Mode— n  conditions. 

•  Zones  of  shielding  and  amplification  are  identified  through 
Green’s  Function  for  the  SIF  plots.  These  plots  were  produced 
for  both  Modes  I  and  n  for  the  case  of  the  horizontal  and  inclined 
dipoles. 

•  An  effective  crack  propagation  within  the  damage  zone  is 
suggested  through  an  elaborate  crack-damage  SIF  study  on  a 
particular  configuration  as  well  as  a  generic  zone  constructed  of 
continuously  distributed  dipoles. 

•  Far  field  energy  release  rates  which  relate  to  the  translation  of 
both  crack  and  entire  LSD  is  computed  for  a  particular 
configuration  and  the  results  from  this  analysis  can  be  used  to 
properly  proportion  the  measured  ERR.  For  the  case  considered 
in  Section  7.8,  it  appears  that  the  energy  release  for  rigid 
translation  of  the  damage  zone  is  approximately  10%  of  the  total 
measured  ERR.  This  factor  will  be  used  in  Chapter  8  to  adjust 
the  measured  ERR  accordingly  in  the  constitutive  model. 


References 


1)  Atkinson,  C.  (1962), "The  Interaction  Between  a  Dislocaticn  and  a 
Crack",  Litemational  Journal  of  Mechanics,  Vol.  2,  pp  56T—574 

2)  Ballaxini,  R.,  Mitsunori,  D.  (1988), "The  interaction  between  a  crack  and 
a  dislocation  dipole"  International  Journal  of  Fracture,  VoL  37,  pp 
61-71. 

3)  Ballarind,  R.  "A  semi-empirical  analysis  of  micro— cracking  in  concrete’, 

Proc.  of  th  Int.  Conf.  of  Fracture  Mechanics  ,  Houston  ,Iil  press. 

4)  Budiansiy,  B.,  Rice,  J.  R.  (1973), "Conservation  Laws  and  Energy 
Release  Rates",  Journal  of  Applied  Mechanics,  Trans,  of  ASME,  March, 
pp.  201-203. 

5)  Chaabat,  M.,  (1987), "Stress  analysis  in  Polystyrene",  Phi).  Dissertation, 

Dept,  of  Civil  Engineering,  Case  Western  Reserve  University 

6)  Cherepanov,  G.  P.,  Kuliev,  V.  D.  (1975),  "On  Crack  Twinning", Int. 

Journal  of  Fracture,  Vol.  11,  No.  1,  pp  29-38 

7)  Chu,  S.,  "Elastic  Interaction  Between  Screw  Dislocation 
and  Surface  Crack",  J.  Applied  Physics,  Vol.  53  (1982) 

8)  Chudnovsky,  A.,  Dolgopolsky,  A.,  Kachanov,  M.  (1984),  "Advances  in 
Fracture  Research",  Proc.  of  Int.  Conf.  Frac.  6,  Vol.  2,  ed.  S.R.  Valluri 
et  al.,  Pergamon  Press,  Oxford,  pp.  825—832. 

9)  Chudnovsky,  A.,  Dolglopolsky,  A.,  Kachanov,  M.  (1987)  "Elastic 
Interaction  of  a  Crack  with  a  Microcrack  .Array  —I.  Formulation  of  the 
Problem  and  General  form  of  the  Solution",  Int.  Journal  of  Solid 
Structures,  Vol.  23,  No.l,  pp  1-10 

10)  Chudnovsky,  A.,  Kachanov,  M.  (1983),  "Interaction  of  a  Crack  with  a 
Field  of  Microcracks",  Letters  in  .Applied  Eng.  Sd.,  Vol.  21,  No.  8,  pp 
1009-1GI8. 

11)  Chudnovsky,  A.,  Wu,  S.  (1988),  "Crack  Layer  Translational  Energy 
Release  Rates" 

12)  Chudnovsky,  A.,  Ouezdou  B.  M.  (1988),  "Semi— empirical  Crack  Tip 
Analysis’,  has  been  submitted  to  the  International  Journal  of  Fracture. 


160 


161 


13)  Chuicliin,  R.  V.,  Brown,  J.  W.  (1984),  "Complex  Variables  and 
Applications",  McGraw  Hill  Book  Co.,  New  York 

14)  Erdogan,  F.  (1962),  "On  tlie  Stress  Distributions  in  Plates  Witb 
CoUineax  Cuts  Under  Arbitrary  Loads  ",Proceedings  of  tie  Fourth.  Int. 
U.S.  National  Congress  of  Applied  Mechanics,  Vol.  I,  pp  547-654. 

15)  Hellan,  K.  (1984),  "Introduction  to  Fracture  Mechanics",  McGraw  Hill 
Book  Co.,  New  York 

16)  Hoagland,  R.  G.,  Embury,  J.  D.  (1980),  "A  Treatment  of  the  Inelastic 
Deformaiion  Around  a  Crack  Tip  due  to  Microcracking",  Journal  of  the 
American  Ceramic  Soc.,  Vol.  63,  pp  404—410 

17)  Kachanov,  M.  (1985),  "A  Simple  Technique  of  Stress  Analysis  in  Elastic 
Solids  with  many  Cracks",  Int.  Journal  of  Fracture,  Vol.  28,  pp 
R11-R19 

18)  Kachanov,  M.,  Montagut,  E.  (1986),  "Interaction  of  a  Crack  with 
Certain  Micxocrack  Arrays",  Engineering  Fracture  Mechanics,  Vol.  25, 
No.  5/6,  pp  625-636 

19)  Kanninen,  M.  F.,  Popelar,  C.  H.  (1985),  "Advanced  Fracture 
Mechanics",  Oxford  Eng.  Sci.  Series  15,  Oxford  University  Press,  New 
York 

20)  Lee,  S.  (1985),  "A  New  analysis  of  Elastic  interaction  between  a  Surface 
Crack  and  a  Parallel  Screw  Dislocation",  Engineering  Fracrare 
Mechanics,  Vol.  22,  No.  6,  pp  429-^35 

21)  Lo,  K.  BL  (1978),  "Analysis  of  Branched  Cracks",  Journal  oi  Applied 
Mechanics,  Vol.  45,  pp  797—802 

22)  Mendelson,  A.  (1973),  "Boundary— Integral  Methods  in  Elasticity  and 
Plasticity",  NASA  Technical  Note,  TN  D-7418, 

23)  Mendelson,  A.  (1986),  "Advanced  Elasticity",  Class  Notes,  Dept,  of  Civil 
Eng.,  Case  Western  Reserve  University 

24)  Muskheiishvili,  N.  L.  (1958),  "Some  Basic  Problems  of  Maihematical 
Theory  of  Elasticity",  P.  Noordhoff 

25)  Rice,  J.  R.  (1968),  "Mathematical  Analysis  in  the  Mechanics  of 
Fracture",  Chapter  3  in  Fracture,  Vol  II,  edited  by  Liebowitz,  H., 
Academic  Press,  pp  192—311 

26)  Rice,  J.  R.,  Thompson,  R.  (1974),  "On  the  Ductile  verses  Brittle 
Behavior  of  Crystals",  Phil.  Mag.,  Vol.  29,  pp  73—97 


162 


27)  Rose,  L.  R.  F.  (1986),  "Microcrack  interaction  with  a  main  crack",  Int. 
Journal  of  Fracture,  Vol.  31,  pp  233—242 

28)  Rose,  L.  R.  F.(1986),  "A  Kinematic  Model  for  Stress— Induced 
Transformations  around  Cracks",  Mechanics  of  Transformation 
Toughening,  Journal  of  American  Ceramic  Soc,  Vol.  69,  pp  212-214 

29)  Rose,  L.  R.  F.,  Swain,  M.  V.(1986),  "Two  R  Curves  for  Partially 
Stabilized  Zirconia",  Mechanics  of  Transformation  Toughening,  Journal 
of  American  Ceramics  Soc.,  Vol.  69,  pp  203—207 

30)  Rubenstien,  A.  A.,  (1985),  "Macrocrack  Interaction  with  a  Semi-infinite 
Microcrack  Array",  Int.  Journal  of  Fracture,  Vol.  27,  pp  113-119 

31)  Saada,  A.  S.,  Chudnovsky,  A.,  Kennedy,  M.  (1985). "A  Fracture 
Mechanics  Study  of  Stiff  Clays,"  Proc.  Eleventh  Int.  Conf.  Soil  Mech. 
Found.  Engg.,  San  Francisco,  Vol.  2,  pp  637  —  640. 

32)  Shiue,  S.,  Lee,  S.,  (1985),  "A  Thermodynamic  Approach  to  the 
Interaction  Be^  ween  Dislocation  and  Crack  and  its  Applications", 
Engineering  Fracture  Mechanics,  Vol.  22,  No.  6,  pp  1105—1115 

33)  Wang,  C.  T.  (1953),  "Applied  Elasticity",  McGraw  Hill  Bcok  Co.,  New 
York,  pp  171-208 

34)  WiUis,  J.  R.  (1968),  "The  Stress  Field  Around  an  Elliptical  Crack  in  an 
Elastic  Medium",  Int.  Journal  of  Engineering  Science,  Vol.  6,  pp  5 


Solution  via  Superposition 

Combined 


Case  Case  1  Case  2  Case  3 

I  I  i  I  1111 


I  f  f  f  fit! 


Figure  7.1: 


Three  Cases  which  when  superimposed  produce  a 
combined  stress /displacement  field  observed  in  the 
experiment. 
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Figure  7.2: 


EDGE  DISLOCATION 


Im 


Plot  of  K.  K.  Lo’s  solution  for  a  crack  with  an  edge 
dislocation  in  the  complex  plane. 
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DIPOLE  DISLOCATION 


Figure  7.3; 


Plot  of  a  crack  with  a  dislocation  dipole  in  tie  complex 
plane. 


L'lgure  7.16;  Contour  plot  of  Txy  component  for  the  case  in  Figure 


Figure  7.17;  Contour  plot  of  Tnax  component  for  the  case  in  Figure  7.12 


Figure  7.18: 


Photograph  of  dogbane  cracks  developed  in  a  cylinder 
during  resting. 


Figure  7.21 


crack  case  (Figures  7.18  and  7.19). 


Case  for  bx 
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Plot  of  nondiineiisionalizcd  Green’s  Function  for  SIF 
denoted  for  a  unit  opening  dislocation  causing  Mode— I 
and  Mode— II  effects.  The  dipole  is  oriented  so  that  it  is 
parallel  with  the  ®-axi8  (0  =  0°). 
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denoted  Guu  for  a  unit  opening  dislocation  causing  Mode— I 
and  Mode— II  effects.  The  dipole  is  oriented  so  that  it  is 
inclined  with  the  a^-axis  (0  =  +20°). 
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DAMAGE  ZONE  CONFIGURATION 


Fignie  7.28: 


Phc'-opaph  of  a  crack  and  preceding  damage  (beicw;  for 
Cvdnder  5—6  cycle  #  262  and  tiie  approximation  of  'he 
damage  zone  (above)  with  descrete  sUp  lines. 


SIF  vs  Imaginary  Tip 
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damage  (lfda«aKe).  and  their  respective  total  (Ktotai)  vs  an 
imaginary  ciacK  tip  location. 
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Damaged  Element 


Figure  7.30: 


An.  element  of  damaged  material  illustrating  the  internal 
and  external  damage. 


SIF  vs  Imaginary  Tip 
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Chapter  8 


A  Constitutive  Model 


8.1  Introduction 

In  Chapter  6,  the  fracture  process  is  treated  as  a  thermodTiiamic 
irreversible  process.  Therein,  the  global  entropy  production  is  described  as  a 
bilinear  form  of  generalized  fluxes  and  thermodynamic  forces  (Equation  6.14). 
This  type  of  relationship  has  also  proven  to  be  true  for  other  types  of 
irreversible  processes  such  as  diffusion  and  chemical  reactions  (1,2, 3, 4). 


In  order  to  develop  a  constitutive  model  describing  the  Mode  n  fracture 
process  in  overconsolidated  clays  using  the  relationship  in  Equation  6.14,  two 
tasks  must  be  accomplished: 


•  The  phenomenological  relationship  between  the  generalized  flux 
(ic)  aJid  the  thermodynamic  force  (Xi)  must  be  evaluated. 

•  Evaluation  of  the  specific  energy  for  the  Localized  Strip 
Densification  Process  (i.e.,  compute  7).  7  is  considered  to  be  a 
material  property  in  the  theory  and  is  contained  in  the 
thermodynamic  force  (see  Equations  6.15,  6.16,  and  6.17). 
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In  this  chapter  the  above  two  tasks  will  be  addressed  using 
experimentally  obtained  results  from  Cylinder  5—6. 


8.2  Experimental  Results  and  Observations 

Cylinder  5—6  was  tested  in  a  manner  described  in  Chapter  2.  During  the 
cyclic  test,  specified  torque— rotation  cycles  were  recorded  and  corresponding 
photographs  of  the  LSD  zone  evolution  were  taken  (see  Figures  3.1,  3.2,  7.28). 
From  the  torque— rotation  curves,  the  total  potential  energy  and  irreversible 
work  values  vs  cycles  were  plotted.  These  plots  are  shown  in  Figure  8.1. 

Other  processed  results  for  this  test  included  the  damage  zone  evolution 
(LSD  evolution)  performed  in  Sections  5.3,  and  5.4.  Results  from  the  Cylinder 
5-fi  damage  evolution  reconstruction  include  a  plot  of  the  centroid  distance  (zc) 
vs.  cycle  number  (Figure  5.7)  and  a  plot  of  the  translational  resistive  moment 
{Ri)  vs  cycle  number  (Figure  5.11). 

The  data  in  the  plot  of  centroid  distance  vs.  cycle  number  in  Figure  5.7 
was  fit  by  a  least  squares  approach  with  a  third  order  polynomial. 
Differentiating  the  curve  fit  equation  produced  a  second  equation  describing  the 
rate  of  centroid  movement  (i.e.,  an  equation  for  Xc  for  any  cycle  number). 
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The  stress  and  energy  analysis  in  Chapter  7  showed  that  the  energy 
release  for  pure  translation  of  the  damage  zone  amounted  to  approximately  10% 
of  the  total  measured  energy  release  rate  (see  Section  7.8).  Thus,  the  10% 
factor  was  used  to  reduce  the  total  measured  energy  release  rate  in  Figure  8.1  to 
compute  the  active  part  of  the  thermod3mamic  force  (Ai).  Application  of  the 
above  described  approach  was  done  in  by  plotting  the  potential  energy  vs. 
centroid  distance  and  fitting  the  data  with  an  approximating  curve  (see  Figure 
8.2).  Again,  differentiating  the  curve  fit  equation  produced  another  equation 
representing  the  total  ERR  (energy  release  rate).  These  results  were  reduced  to 
10%  of  their  total  value  in  accordance  with  the  findings  in  Section  7.8  to  reflect 
the  ERR  due  to  translation  of  the  damage  zone. 

Note  that  by  processing  the  information  as  described  above  allows  us  to 
obtain  the  generalized  flux  (ic)i  tbe  active  part  of  the  thermodynamic  force 
(Ai),  and  the  resistive  part  of  the  force  (Ri)  for  any  particular  cycle  if  a  value 
for  7  is  specified.  Thus,  we  are  now  ready  to  investigate  an  appropriate 
phenomenological  relation  between  the  force  and  flux  and  to  estimate  a  value 
for  7,  the  specific  energy  for  Localized  Strip  Densification. 


8.3  Phenomenological  Relationship  and  Specific  Energy  Evaluation 

In  this  section  we  evaluate  the  phenomenological  relation  between  the 
generalized  flux  ic  and  the  thermodynamic  force  Xi.  For  convenience  we 
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remind  that: 

[8.1]  Xi=Ax-'iR, 

Xc  =  rate  of  translation  of  the  LSD  zone  centroid. 

At  thermodynamic  equilibrium  all  processes  stop  and  we  have 
simultaneously  for  all  irreversible  processes: 

[8.2]  ic  =  0  Xi  =  0  at  equilibrium. 

It  is  quite  natural  to  assume,  at  least  in  the  neighborhood  of  an 
equilibrium  condition  (i.e.,  stable  aack  and  damage  propagation),  the  relation 
between  the  force  and  flux  can  be  approximated  by  a  linear  relationship.  This 
type  of  relation  is  assumed  in  many  other  processes  studied  in  nature.  Fourier’s 
Law  for  heat  conduction  and  Pick’s  law  for  diffusion  are  examples  of  such 
processes  (1, 2,3,4).  This  type  of  phenomenological  relation  is  known  as  the 
Onsager  Principle  (2,3). 

Initially,  the  effect  of  7  on  the  force/flux  relationship  was  investigated 
by  plotting  on  a  log-log  scale  the  data  of  forces  vs.  fluxes  for  various  values  of 
7=constant.  In  other  words,  a  range  of  plots  illustrating  the  force-flux  data  for 
differing  values  of  7  were  produced.  These  plots  for  7  ranging  between  1.0 
kJ/M3  and  lO.OkJ/M^  is  included  in  Figure  8.3. 
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In  Figure  8.3,  it  is  noticed  that  their  is  an  apparent  insensitivity  for  a 
chosen  7  in  the  early  portion  of  the  data  and  that  the  significant  influence  only 
occurs  near  the  end  of  the  record  (i.e.,  the  value  of  7  only  significantly  affects 
the  last  four  data  points).  The  last  points  correspond  to  cycles  greater  than  or 
equal  to  245.  When  investigating  the  LSD  zone  evolution  for  cycles  earlier  than 
245  cycles  (Appendix  D)  it  can  be  noticed  that  the  relative  rate  of  LSD 
nucleation  is  significant  when  compared  later  portions  of  the  record.  Since  the 
thermodynamic  model  presented  within  this  study  did  not  account  for  this 
effect,  the  application  of  the  translational  model  to  the  LSD  zone  to  the  earlier 
portion  of  the  record  is  not  applicable. 

An  Onsager  type  relation  (linear  relation)  is  proposed  for  the  data  with 
cycles  greater  than  or  equal  to  245  from  the  Cylinder  5-6  data  set.  In  order  to 
assess  the  proper  value  for  7  and  the  phenomological  coefficients  a  regression 
analysis  on  the  force/flux  data  for  ranging  values  of  7.  The  combination  which 
produced  the  best  conelation  (e.g.,  according  to  Pearson’s  Correlation 
Coefficient)  were  chosen  as  appropriate  parameters  to  describe  the  fiacture 
process  in  this  material.  The  resulting  fit  is  shown  in  Figure  8.4  and  the 
corresponding  equation  describing  the  fracture  process  is  given  by: 


[8.3] 


ic  =  -  7/2i  -  aj 
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where,  for  the  case  of  overconsolidated  kaolinite  clay; 


7=  1.0  (kJjAP) 

[8.4]  =  45x103  (  J  cyc/Ai) 

a=  32  (y/A/2) 
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Figure  8.1: 


Plot  of  the  total  measured  potential  ener^  and 
ineversible  work  vs  cycle  number  for  Cylinder  5-6. 
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CYLINDER  5-6 

Measured  Energies  vs.  Centr*oid 
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Figure  8.2; 


Plot  of  the  total  measured  potential  energy  and 
irreversible  work  vs.  centroid  distance  for  Cylinder  5-6. 
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Figure  8.3: 


Plots  of  thermodTuamic  force  vs.  flux  in  log— log  format  for 
various  values  of  7  ranging  between  1.0  and  10.0  kJ/M^. 
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Chapter  9 


Final  Discussion 


9.1  Summary 

The  work  contained  in  this  dissertation  represents  a  fundamental 
investigation  of  the  Mode  H  fracture  process  in  overconsolidated  days.  A 
methodology  is  presented  for  characterizing  cooperative  fracture  with  an 
ultimate  goal  to  develop  a  constitutive  model  based  on  the  framework  of 
thermodynamics  of  irreversible  processes. 

While  performing  this  study,  new  developments  in  theorectical  aspects, 
and  experimental  techniques  arose.  Some  of  these  developments  will  be 
summarized  herein. 

Chapter  2  presents  experimental  techniques.  Some  of  the  new 
experimental  contributions  indude  using  an  image  analysis  system  for  the 
quantitative  characterization  of  observed  damage  in  this  materiaL  Also,  a 
technique  for  measuring  localized  irreversible  deformation  (slippage)  during  the 
testing  sequence  was  developed.  It  involves  photographing  and  analyzing  a  grid 
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system  stamped  on  the  cylinder  prior  to  testing. 

Chapter  3  presents  experimental  evidence  of  stress  induced 
morphological  transformations  that  occur  in  the  soil  fabric  during  bracture.  It 
should  be  noted  that  this  is  the  first  time  damage  has  been  observed  in  the 
microstructure  of  this  material  and  the  processes  responsible  are  named 
Localized  Strip  Densifications  and  Network  Densifications.  In  addition,  four 
miaomechanisms  responsible  for  macroscopic  deformation  are  identifyed. 

Chapter  4  introduces  techniques  for  characterizing  the  kadlinite  cluster 
distributions  (i.e.,  the  soil  fabric  in  it’s  natural  state).  Included,  is  an 
introduction  to  the  concept  of  a  represeTttative  volume  of  material  which  bridges 
the  gap  between  material  science  and  applied  mechanics.  A  formal  definition  is 
given  for  the  representative  volume  and  a  working  definition  of  a  representative 
volume  for  the  case  of  overconsolidated  clays  is  given. 

Chapter  4  also  provides  new  theorectical  and  numerical  techniques  in  the 
field  of  quantitative  stereology  by  presenting  a  new  scheme  for  reconstructing 
the  spatial  distribution  of  a  polydispersed  system  of  particles  from  information 
obtained  from  a  planar  section.  The  new  reconstruction  scheme  is  a  hybrid  of 
Dehofi’s  and  Saltykov’s  methods  except  that  it  is  generalized  to  accomodate  a 
mixture  of  both  prolate  and  oblate  ellipsoids.  In  addition,  the  presented  scheme 
allows  for  an  overdefined  system  of  equations  improve  accuracy  over  the 
conventional  linear  system.  Finally,  an  error  analysis  technique  is  presented 
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and  some  preliminary  results  for  the  spatial  distribution  of  clusters  is  presented. 

Chapter  5  presents  an  experimentally  based  scheme  for  quantitatively 
characterizing  most  common  of  the  material  transformations  (i.e.,  the  Localized 
Strip  Densifications).  The  technique  involves  a  combination  of  elaborate 
specimen  sectioning  along  with  an  intensive  numerical  processing  scheme  to 
reconstruct  contour  maps  of  the  damage  zone.  Further,  a  technique  for 
reconstructing  the  evolution  of  damage  is  presented  and  gross  (elementary) 
movements  of  the  entire  zone  are  identified. 

Chapter  6  introduces  the  concept  of  treating  fracture  as  an  irreversible 
process  within  the  framework  of  thermodynamics.  Within,  the  conventional  set 
of  state  parameters  is  extended  to  include  a  damage  parameter  p  and  an 
equation  of  state  is  written  in  terms  of  entropy  production.  Both  the  local  and 
global  entropy  production  is  expressed  as  a  bilinear  form  of  thermodynamic 
forces  and  generalized  fluxes.  Also,  a  generalized  flux  is  identified  as  the 
centroidal  movement  of  the  zone  of  damage  and  the  active  part  of  the 
thermodynamic  force  is  compared  to  the  conventional  energetic  force  ( J — 
integral)  in  fracture  for  an  isothermal  condition. 

Chapter  7  provides  a  comprehensive  stress  and  energy  analysis  for  the 
aack  and  damage  zone  configuration.  The  combined  problem  of  crack,  damage 
and  applied  load  is  decomposed  into  three  separate  problems.  A  semi-empirical 
stress  analysis  based  on  a  complex  potential  formulation  is  introduced. 
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Contouis  of  effective  stress  fields  are  shown  for  specified  cases.  Also,  the 
effective  stress  intensity  from  each  of  the  separate  cases  is  investigated.  Zones 
of  amplification  and  shielding  are  identified  for  a  microcrack  (dislocation  dipole) 
oriented  so  as  to  be  parallel  to  the  main  crack  and  for  the  case  of  an  inclined 
(20°)  microcrack  for  both  Modes  I  and  II.  These  zones  are  identified  through 
contour  plots  of  the  Green’s  Function  for  the  stress  intensity  factor.  Also,  the 
combined  stress  intensity  factor  caused  &om  both  remote  loading  and  a 
particular  (observed)  configuration  of  damage  is  analyzed  and  a  plot  of  the  total 
SIF  vs  imaginary  aack  tip  suggests  that  the  fracture  in  this  material  resembles 
that  of  a  sophisticated  Dugdale/Barenblatt  model.  Further,  a  generic  approach 
for  analyzing  the  damage  zone  as  distributed  damage  is  introduced  and 
illustrated  for  a  particular  case.  Finally,  an  energy  release  rate  analysis  of  the 
entire  damage  zone  is  performed. 

Chapter  8  brings  together  all  of  the  information  from  the  previous 
chapters  and  proposes  a  constitutive  model  for  describing  the  fracture  in  this 
material.  The  model  is  based  on  a  bilinear  form  of  a  generalized  flux 
(centroidal  movement  of  the  damage  zone)  and  a  thermodynamic  force.  The 
model  presented  consists  of  a  phenomological  relation  between  flux  and  force 
and  the  evaluation  of  a  material  property  7  (the  specific  energy  for  cluster 
densification). 


9.2  Condnsioiis 


Many  conclusions  can  be  extracted  from  the  work  reported  in  this  thesis. 
Most  of  these  have  been  commented  on  in  respective  sections  of  their  chapters. 
These  will  not  be  reiterated  in  this  section  and  only  those  that  are  considered 
most  significant  will  be  discussed. 

The  first  conclusion  that  can  be  extracted  from  this  work  is  the 
micromechanisms  responsible  for  macroscopic  deformation  which  are  evidenced 
in  Chapter  3  and  explicitly  listed  therein. 

Second  is  that  the  overall  methodology  presented,  provides  a  constitutive 
law  which  derives  its  basis  from  the  thermodynamic  studies  of  transport 
phenomena  (heat  conduction,  diffusion,  etc.).  Thus,  a  bilinear  form  describing 
the  fracture  process  contains  sound  scientific  reasoning  and  is  not  simply  an 
empirical  formula. 

Finally,  it  is  my  belief  that  further  studies  of  this  nature  would  greatly 
benefit  if  a  specimen  of  larger  diameter  is  used.  The  basis  for  this  finding  can 
be  found  explicitly  in  three  different  chapters.  First  of  all,  the  minimum 
representative  volume  size  determined  in  Chapter  4  indicates  that  statistical 
convergence  of  specimen  response  may  not  occur  unless  the  specimen  size  is  at 
least  an  order  of  magnitude  larger  that  the  RV  size.  Secondly,  close  inspection 
of  Figure  3.5  b  shows  a  higher  frequency  of  LSD’s  emanating  to  the  outer 
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surface  and  relatively  few  along  the  inner  surface.  This  observation  indicates 
that  the  curvature  affects  the  nucleation  and  growth  of  damage.  Thirdly, 
Figure  8.3  shows  a  relative  insensitivity  to  the  value  for  7  except  at  the  latter 
data  points.  This  indicates  that  the  early  portion  (less  than  245  cycles) 
majority  of  the  test  sequence  can  be  considered  an  initiation  stage  and  the 
applicability  of  this  model  (constitutive  model)  only  becomes  reasonable  after 
245  cycles.  A  larger  diameter  specimen  would  provide  more  data  within  this 
realm. 
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Pa9«  1 
06-2^-86 
12:21:45 

0  Lin*#  1  7  IBM  Paraonal  Coapoter  FORTRAN  CoapUar  V2.00 


1  PROCSAM  FROBU 

2  c******************************************************************** 

3  c*****  THIS  FROGRAK  IS  DESIGNED  TO  COMPOTE  THE  COMDIATIVB 

4  PRCSABXLXTT  OSING  A  GAOSSCAN  OENSITT  OZSTRZBOTZON  FOR  »***»*• 

5  C*****  A  SPECIFIED  INTERVAI.  .  *»•***• 


5  «  ■«*««*  ««««*««•*«*««**»«**•»«•»*«****•»»•)»»«***»»«*»♦♦ 

7  C 

3  C  Xnpor  Raqnixed  Varlablea 

9  C 

10  MRIT3(*,*)' - IHPDT  PARAMETERS - ' 

11  0005  MRIT2(»,*)'  MEAN,  SDEV,  SOM' 

12  RZAO(*,*,ZRR-OOOS)BABX,SOE7,SDM 

13  0010  WRITS (*,*)'  GIVE  LOWER  AND  OFFER  UMT' 

14  R£Aa(*,*,ERR-0010)BL.OL 

15  C 

15  C  Sac  laCavratlon  varlatala 

17  C 

18  NIJPT-1000 

19  WDTa-CBL-LL) /FLOAT  (MINT) 

20  xoaL 

21  COETF-SOK/(SDEV*2.5065) 

22  SOMZ-O.O 

23  C 

24  DO  3100  I-l.NIST 

1  25 

1  25  EX— O.S*((rSC-BARX)/SDEV)«*2) 

1  27  SGaT-EXP(Er) 

1  28  3<ST-C0EFP*BGET 

1  29  SOK1-SOM1+(BGHX*WOTH) 

1  30  XC-XC+WDIH 

1  31  0100  CdCTTMOE 

32  C 

33  C  Wrl-Sa  final  rasults 

34  C 

35  WRrrE(*,0020)BAHX,SDEV,8L,arL,SOMl 

35  0020  FOSHDUrC//,' - SOMMARX  OF  IKPOT  AND  SESOITS  - 

37  1  '  MEAN-',S10.4,'  SDEV-' ,010.4 ,/, 

38  2  '  LONER  LIM-' ,010.4,  '  OFFER  LIM-' ,010.4,/, 

39  3  '  CDMOLATIVE  PROBILIT?  -',010.4) 

40  ZN3 


Kaaa  Typa 

BARX  REAL 
BL  REAL 
COETF  REAL 
SC  REAL 
SXP 
FLOAT 

HOST  REAL 
I  IHTEGER-4 

LL  INTECER-4 
SINT  INTBCEa-4 
SDEV  REAL 
SOM  REAL 
SONl  REAL 

OL  REAL 
WDTB  REAL 
XC  REAL 


Offsat  F  Class 

2 

14 

38 

54 

INTRINSIC 

INTRINSIC 

58 

45 

30 

22 

5 

10 

42 

18 

25 

34 


0  Linat  1  7 

41 

Hana  Type 
PSOBi.; 
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IBM  Personal  CoapuCer 


Pa^a  2 
06-24-8S 
12:21:45 
FORTHAM  Coapilar  V2.00 


size  Class 

PBOGSAM 


Pass  One 


So  Errors  OaCacCad 
41  Source  Linas 


214 


D  Un«« 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 
47- 

48 

49 

50 

51 

52 

53 

54 
53 
56 


Pag*  1 
06-27-88 
19:11:14 

Hicroaoft  F0RTRAM77  73.20  02/84 


1  7 

SOEBCTG 

?StOGS*M  CltCIXP 

0******^*****'************^****^************^**********************«*1»' 

tSB  PORPOSE  OF  THIS  PROGSAK  IS  TO  RECIEVE  IHPOT  FROM  THE  HP  * 
PLOTTER  ntrORMATIOM  AND  STORE  THE  DtTO  IM  AN  ARRAY  FOR  PLOT-* 
c*****  TING  AND  OTHER  REPROCESSING.  * 

C******v**************'**«**«*«**«*********4i 

□XHENSION  X(IOOO)  ,Y(1000) 

CgARACrER«10  OATFIL 
CZARACTER*40  TITLE 
XTNOO.O 
YINOO.O 

0010  NaiTE(*,*)'  - GIVE  FILE  HAKE - 

Wat2TE(*,*)'  XrCCGC300CX' 

REaiO  (  * ,  0020 ,  ERR-00 10 )  lUOFIL 
0020  FORMAKAIO) 

OPEN  ( 10 ,  FILE-OATFXL,  STAtOS-'NEW' ) 

0030  W5aTE(*,*)'  - GIVE  DATA  TITLE  — 

RaTrE(»,*) 

READ  (*,  0040 ,  ZRR-0030  )  TITLE 
0040  FaRMAS(A4a) 

0035  NaiTE(*,*)'  GIVE  NDHBER  OF  POINTS' 

READ  ( * ,  • ,  ZRR-003  5 )  HPTS 

0025  NHrrE(*,*)'  IF  ADTO  IHCHEKEHTIHC  X  OR  Y  DATA 

WJCCTE(*,*)'  GIVE  XINC  AND  YINC  RESPECTIVELX 

RSAD(*, ‘.ERR-OOIS)  DOKX.OOKY 
I?  (DOHX..'IE.  0 . 0 )  XIHC-OCKX 
r?(DOIff.HE.O.O)  YINC-DOKX 
DOKX-O.O 
mOKX-O.O 


T3RHIN3LL  INPDT  LOOP 
DO  0100  I1-1,NPTS 
0105  NaiTE(*, 0110)11, OOMX.OaMX 
0110  FORMAT  f/// 

1  • - OEFAdlT  VALUES - ',/ 

2  '  PT.  HO-', 15,'  X  -'.F12.5,'  Y-',?12.5,// 

3  '  GIVE  X  OR  Y  IF  NOT  SAIISFACTORr' ,// 

4  '  ->-999.  TO  CHANGE  INCREMENT  VALUES',/ 

5  - - »,/) 


0115 


■0.0 

DHI-0.0 

REAO(*,  *,ERJl-0105)  0MX,Dinr 

I?  { DMX.  EQ . -999 . )  THEN 

WRrrE(*,*)'  GIVE  NEW  XINC  AITO  YINC' 
READ  (♦,*,  SRR-0 115 )  XINC,  YINC 
GO  TO  0105 
ESDir 

rr(0MX..HE.a .  3)  OOKX-OKX 
rr  ( DMY .  .HE .  0 . 0 )  OCMY-OKY 
I,TI1)-0CKX 
r  TD-OCMY 
DCMX-OOKX+XINC 
ICMY-OOMY-i-YIHC 


57  0100  COBTTNDE 

58  C - 

59  C 


215 


Paga  2 
0«-27-88 


0 

Lin*# 

1 

Microsoft  rORTRANTf  V3.20  02/84 

SO 

0120 

wMTEC*,*)'  CONTISOE  — >  0  LIST  INPOT  —1' 

SI 

rsoM-o 

62 

32AD(*,  *,£101-0120)  IDTO 

63 

rr  ( IDOK.  GT.  0  )  THEM 

64 

0133 

WRITE(*,*)'  1 -  PT  MO  — 1 - X  (valus)  - 1 - If  (valus) - 1' 

65 

DO  0125  I1-1,MPTS 

1 

66 

0125 

MRITE(*,0130)Il.X(Il),f(Il) 

67 

0130 

FORMXTC  1  ',15,'  1  ',F12.5,'  |  ',?12.5,'  |') 

68 

0127 

WR1TE(*,*)'  CHXMCE  IMPaT  GIVE  POIMT  MO' 

69 

IDOM-0 

70 

READ (*,*,ERR»0 127)  IDCK 

71 

I7tIDDM.GT.0)THEM 

72 

0129 

WRITEf*,*)'  GIVE  X  (valus) ,  Y  (valus)  ' 

73 

3EAD(*,*,ZIOJM3129)X{IDCM)  ,Y(IDDM) 

74 

GO  TO  0133 

75 

EMDI? 

76 

— _ 

laiDiP 

it 

78 

C 

79 

c 

^EHERATS  tMPOT 

80 

0140 

SHITEC*,*)'  GENERATE  OTHER  HALF  — >1' 

81 

rroM-o 

82 

EEAD  (  * ,  • ,  SRR-0140  )  riXm 

33 

rF(IDCtM.GT.O)THEM 

34 

MPKl-MPTS-1 

35 

MRITEf*,*)'  MPK1-',MIW1 

36 

DO  0150  I1-1,MI«1 

87 

X(MPTS+I1) -X(NPTS) -Xdl+l) 

i 

38 

Y(MPTS+I1)— 1.0*Y(I1+1) 

1 

39 

0150 

COMTIMUE 

90 

MPTS-MPTS*2-1 

91 

MRITEC*,*)'  MPTS»',MPTS 

92 

aroiF 

93 

^?3J:TE(*,*)  '  MHITIMG  FILE' 

94 

DO  0200  I1-1,MPTS 

1 

95 

0200 

33u:ts(io,*)X(ii)  ,t(ii) 

96 

STF— 999 . 

97 

■ssirrs  { 10 ,  • )  STP ,  STP 

98 

*5tITE{10, 0040)  TITLE 

99 

CLaSE(lO) 

100 

EHD 

Kaa« 

Typ« 

Offset  ?  Class 

DATFIL 

CaAR*10 

3024 

DHX 

REAL 

3490 

DKY 

REAL 

8494 

DCNX 

REAL 

8090 

DOMY 

REAL 

8094 

11 

IOTSGZR-*4 

8093 

IDOM 

INTEGER- 4 

8498 

MPMl 

INTEGER-* 

8556 

MPTS 

INTEGER-* 

8086 

STP 

REAL 

3563 

TITLE 

CHAR-4C 

3040 

X 

REAL 

16 

XIMC 

REAL 

3016 

V 

REAL 

4016 

YINC 

REAL 

3020 
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Maaa  Typ«  Sirs  Class 

OCCIMP  FROGSAM 


Pass  0ns  Mo  Errors  Oatacted 
100  Sourca  T.<  na« 
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Pag*  1 
06-27-88 
19:12:12 

0  Lin«#  1  7  Kicrosoft  rORTRAin?  V3.20  02/84 

1  $DEBaG 

2  PROGBAH  COtnOUR 

3  (3«*«*<vt»****««-****««**«**«*****«**********«*******«**********»***»«*** 

4  c****'*  This  prograa  is  d«sign«d  to  crsats  a  saries  of  fllas  Sor  *** 


5  plotting  a  an  activ*  zona  contour  sap.  Xt  assumas  t&«  *** 

g  C**-**-*  phanoaina  can  ba  raprasantad  with  a  noraal  dlatrlbottoBi.  *** 

7  c****'^*******************************^***************-**^******^****' 

3 

9  CDMMDM  PT(100,2)  ,YBAR(100),TOEV{100),Yarr{100,2),yia2C(200), 


10 

T 

.  XCRO(IOO) 

11 

CHARACTER*  10  TILEMH.FIMP 

12 

C 

13 

c 

Sat  origin  (crack  tip)  values 

14 

c 

IS 

rs-o 

IS 

0200 

S3ITE(*,*)'  raRnT  FILE  ->1  TERICQIAI  ->0' 

17 

22AD(*,*,SRR-0200)  IN 

18 

IT  (in. RE. 0) THEN 

19 

0205 

RHITE(*,*)'  GIVE  IKPOT  FIIE  MAKE' 

20 

READ  (*,  0055 ,  EHR-0205)  PIMP 

21 

3PEM(7 ,  PTLZ-FIMP,  STATUS-' OLD'  ) 

22 

2EAD(7,*)MPRE 

23 

DO  0230  r-l,KPRF 

1 

24 

2EA0(7,*)rBAR(r)  ,  TOEPd) ,  0£AX(I) 

1 

25 

READ(7,*)Yarr(I,l)  ,YCDT(I,2)  ,XCSD(I) 

1 

26 

0230 

COMTIMDE 

27 

CL0SE(7) 

28 

GO  TO  0046 

29 

saroir 

30 

''3IAX(l)-0.0 

31 

n3EV(l)-1.0 

32 

rcoT(i,i)-i.o 

33 

Tarp(i,2)-2.o 

34 

2JCRD(1)»0.0 

35 

0005 

raU:TE(*,*)'  GITS  GRACE  LOCATIOH  ' 

36 

READ  ( * ,  * ,  2RR-0 0 0  5 )  YEAR  ( 1 ) 

37 

0010 

3BXTS(*,*)'  ALI6M  MEAN  7AUJES  ?  YES  ->1  NO  ->0' 

38 

ESAD(*,  *,£RR-0010)  OIOVE 

39 

C 

40 

c 

Raad  in  remaining  input 

41 

c 

42 

0015 

MIRXTE(*,»)'  give  TOTAL  #  OF  PROFILES  TO  INPUT' 

43 

READ  ( * ,  * ,  SRR-0  0 1 5  )  HPRF 

44 

3a>RF-KPRF+l 

45 

0017 

5iRITE{*,»)'  GIVE  SEARCH  LUarS  (lower,  upper)' 

46 

2EAD(*,  *,ERR-0017)  SL,SU 

47 

c 

48 

c 

Start  input  loop  tare 

49 

c 

50 

DO  0022  I-2,MPHF 

1 

51 

Il-I-l 

1 

52 

0025 

4rRITE(*,0030)Il 

1 

53 

0030 

7r3RMAT(//'  GIVE  MEAN,  SDEV,  MAX,  FOR  ',13, 'tt  PRCSTLE 

1 

54 

READ(*,*,2RR-0025)  Y3AR(1)  ,  YOEV(I)  ,  YMAXd) 

1 

55 

0035 

VRITE(*,*)'  GIVE  CUTOFF  LDOTS  (lower,  upper)' 

56 

DCMl-0 . 0 

1 

57 

DUM2-0 . 0 

58 

3EEA0  ( • ,  • ,  2RR-0  0  3  5 )  DUMl ,  OOK2 

1 

59 

c 
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Lin*# 

so 

51 

52 

53 

54 

55 
SS 

57 

58 

59 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 
SS 
37 
88 

89 

90 

91 

92 

93 

94 

95 
9S 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 


LTCDOHI.ME.O.OJTHES 

YaJT(1.2)-D0Kl 

szsz 

YC0T(I,2)-SL 

aiDI? 

rr  {  D0M2 .  HE  .  0 . 0 )  THEK 
YOITd.D-OCIia 
rLSE 

YCOT(I.1)-SO 

zaroiF 

ryfllKJVE.EQ.  1)THEK 
YOJT  ( 1 , 1) -YCOT  ( 1 , 1) -YBAIl(I) 
YCOT  ( 1 , 2 )  -  Ycnr  ( 1 , 2 )  -  YEAR  ( I ) 
YBAR(I)-0-0 
SHDI7 


Microsoft  rORTPAinT  73. 


0033 


0210 


0215 


32ITE(*,»)'  GIVE  X-COORDINATE  FOR  PSOFIIZ  ' 

32AD  (  * ,  • ,  ERR-00 3 3 )  XCHD  ( I) 

0022  COMTIinjE 

i3r««o 

^rarrs(*,»)  '  store  impot  data  in  tile  yes  ->i  ho  ->«•' 
3aAD(*,»,EBR-0210)  IN 
IS’CIN.NE.OjTHEN 
WRITE(*,»)'  GIVE  FILE  NAME' 

2EAD  (  * ,  0055 ,  ERR-02 15 )  FIN? 

OPEN  (7 ,  FILE-FINP,  STATUS- 'NEW' ) 

■TOITS(7,*)HPRF 
DO  0220  I-l,HPRP 

^fKrrE(7,*)YBAR(l)  ,YDEV(1)  ,YMAX(I) 

■«IRITE(7,*)YaiT(I,l)  ,YCtJT(l,2),XCRD(I) 

0220  COHTINDE 
CLOSE  (7) 
aroiF 


c 

c 

c 

0046 

0045 

0040 


Start  contour  input  loop  here 

CDHTINtlE 

-^aiTSC^.ooso) 

FORMATC//'  COKTIKDE  ->0  STOP  ->1') 

ISTP-O 

H2AD(*,*,ESR-0045)  ISTP 
LPCISTP.GT.OIGO  TO  0999 

Ssad  in  contour  aagnitud*  and  file  output  nane 


0050  'iaiT5(»,»)'  GIVE  MAGNITTOE  OF  DESIRED  CONTODR' 

?-SA0(»,  *,SRR-0050)  CMAG 
HL-1 

0060  72IT5(*,*)'  GIVE  OCTPOT  FILE  NAME' 

2EA0(  •  ,  0055  ,SSR»0060)  FILENM 
0055  rORHATfAlO) 

10  s®e  vnicn  profile  exceeds  tt*  contour  nagnitu^e 


lis  C 

117  :c  0065  I-1,HPRF 

1.  113  0065  IF  (YNAX(I)  .GE.C31AG)GO  TO  0070 
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119 

HRITSC,*)'  VALOE  or  COWTQDR  EXCEEDS  OEMSITY  PEAK' 

120 

GO  TO  :04S 

121  0070 

counsiE 

122  C 

123  C 

Conpvta  the  nunber  of  points  required  for  contour 

124  C 

US 

IPHST-l 

126  0120 

COMTSlirE 

127 

IPRND-0 

128 

DO  0075  I-IPRST,jrPRF 

129 

irCflftXd)  .LT.CMAG)THEN 

130 

IPRKtKl-1 

131 

GO  TO  3076 

132 

EHDIT 

133  0075 

conthtce 

134  0076 

COHTISCE 

135 

ir(Il>SH0.GT.0)THEM 

136 

HPTS-:*  (IPSMD-IPRST+1)  +3 

137 

SHDIP 

138 

IP(I7BO.EQ.O)THEM 

139 

IPRm>-*PRr 

140 

HPTS-:«  (IPRND-IPRST+1)  -t-l 

141 

EKDrr 

142 

MRTTSC*,*)'  KPTS  -'^HPTS 

143 

WRITS (♦,*)'  IPRST,  IPRNI^',IPRST,lI«>n) 

144  C 

145  C 

Coopute  the  coordinstes  for  the  points 

146  C 

147 

irf  irSSD-WE.XPBr)  THEN 

148 

i?s-n5Bn>4-i 

149 

CALL  UHIjrr(TPR,CMAG, TALK, VALE) 

150 

?T(1,1:”7ALX 

151 

PT(  1,1) -tale 

152 

PTtKPTS.D-VAlX 

153 

?T(jrps,2)-rAi.E 

154 

ELSE 

155 

PT(1,15-XCRD(I?RND) 

156 

PT(HP2S,  1) -XCSD  (IPRND) 

157 

IPS^nSMD 

158 

CALL  r3roPT(IPR,C!IAG,VALEl,VALE2) 

159 

PT(1,2J-7ALE1 

160 

PrfNPTS,2)-VALE2 

161 

SNOI? 

162 

WRrrS(»,»)'  COMSOTED  FIRST  2  PTS' 

163 

Il-l 

164 

I2-HPTS 

165 

I7(I?RS0.WE.SPRP)  THES 

166 

NSTOP-rPRND-IPRST-t-l 

167 

IPS“IPSTO<-1 

163 

ELSE 

169 

KST0P-3RND-IPRST 

170 

IPR-IPSMO 

171 

ENDI7 

172 

DO  0083  1-1,WST0P 

173 

ll-Il-l 

174 

12-:--: 

1  17S 

1  176 

1  177 


PT(Z1.:.-XCU)(IFR) 

?T(X2,1..XCSD(I?R) 
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1 

178 

ir(™U(r?S)  .EQ.CSAGjTHEM 

1 

179 

PT(11,2)-?BAR(IPR) 

1 

180 

PT(I2.2)-YBAK(IPR) 

1 

181 

ELSE 

1 

182 

CALLING  PINOPT* 

1 

183 

, 

WHITS(*,»)  IPR,  CMAG.VALXl,  V3kLTf2 

1 

184 

CALL  ?lH3PT(IPR,CSaG,V3^1,7ALI2) 

1 

185 

WRITS(»,»)'  RETOHMINC  FROM  FINDPT',7ALI1,VALY2 

1 

186 

PT(I1.2)-7ALX1 

1 

187 

PT(I2,2)-7ALX2 

1 

188 

ENDIF 

1 

189 

0080 

COMTIMOE 

190 

CALL  LIin3r(IPR,CMAG,7ALX,7ALF) 

191 

I>T(11+1,1>VALX 

192 

PT(I1+1,2J-VALI 

193 

c 

194 

c 

Wrlta  coKaur  to  fila 

195 

c 

196 

OPEN  ( 10 ,  FHE-FILENK,  STAIOS-'NEW' ) 

197 

DO  0090  r-l,HPTS 

1 

198 

WirrS(10,«)PT(t,l)  ,PT(I,2) 

1 

199 

0090 

CONTINDE 

200 

STP^999. 

201 

WRITE  ( 10 ,»)  STP ,  STP 

202 

WRITS  ( 10 , 3100 )  CMAG 

203 

0100 

FORHAT('  FILE  FOR  CONTOCR  MAG-',S10.3) 

204 

CLOSE  (10) 

205 

c 

206 

c 

Chaclc  for  additional  curva  at  tha  corresponding  magnitude 

207 

c 

208 

FLG-0 

209 

IF  ( IPRND .  IT .  NPRF)  THEN 

210 

IC-IPSHD-1 

211 

IPRST-0 

212 

DO  0110  >IC,HPHr 

1 

213 

IF  (TMAX  CD  .  GE ,  C30VO)  THEN 

1 

214 

IPRST-I 

1 

215 

GO  TO  OLD 

1 

216 

ENDIF 

1 

217 

0110 

CONTINDE 

218 

0111 

CONTINUE 

219 

IF  ( IPRST.SE .  IC  .AND .  IPRST .  LS  .  NPRF)  THEN 

220 

WRITB(*,»)'  NEW  STARTING  PROFILE  ATMPRST 

221 

WRrrE(*,»)'  ANOTHER  POSSIBLE  COHTODR  AT', CMAG 

222 

0130 

WRITE(*,»)'  GIVE  NEW  FILE  NAME' 

223 

READ(*,  3055  ,ERR-0130)  FILENM 

224 

FIG-l 

225 

ENDIF 

226 

ENDIF 

227 

irC7LG.2Q.l)GO  TO  0120 

228 

GO  TO  0046 

229 

0999 

CONTINDE 

230 

END 

Haa* 

Typ* 

Offset  ?  Class 

CMAC 

KZAL 

166 

DOMl 

SEAL 

118 

DUM2 

REAL 

122 

221 
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nzEiot 

CaAR*10 

174 

PIMP 

CHAR*ia 

20 

FLG 

REAL 

336 

I 

IIITEGER*4 

34 

11 

ZHT£GSR*4 

58 

12 

I1ITEGSR*4 

284 

IC 

Iirri.‘GJ£R'*4 

340 

IMOVE 

QrrBGER*4 

42 

IM 

ZMTEGSR*4 

16 

IPR 

Iin£GER'*4 

264 

IPRND 

IIITEGER*4 

252 

IPRST 

ZirrEGER*4 

248 

ISTP 

rNTEGER*4 

162 

Ml 

IHTEGER*4 

170 

MPRP 

ZMTBGER*4 

30 

MPTS 

XIITEGER*4 

260 

MSTOP 

INTEGER* 4 

288 

PT 

RZ2LI. 

0 

/COMMQQ/ 

SL 

REAL 

46 

STP 

REAL 

300 

SU 

RZAl^ 

50 

VALX 

REAI. 

268 

7ALY 

REAL 

272 

7ALY1 

REAL 

276 

7AI.Y2 

REAL 

280 

XCRO 

REAL 

2800 

/COMKOO/ 

YEAR 

REAL 

800 

/COMKQQ/ 

YCOT 

REAL 

1600 

/COJOK5Q/ 

YDEV 

REAL 

1200 

/COMMQQ/ 

YMAX 

real 

2400 

/COMMQQ/ 

231  C 

232  C 

233  SOBROOTIME  LIKINT(I ,  CHAG, VAUC, VTHTf) 

234  COMKOK  ?rU00,2)  ,'fBAR(100)  ,YDBV(100)  ,'faJT(100,2)  ,  YMAXdOO)  , 

235  1  XCaD(lOO) 

236  D-CYBASd-D-XBARCl)  )**2 

237  D-CM-(XCaD(I-l)-XCJU3(I))*«2 

238  t«QKr(0) 

239  DP5S-(0*(attG-7KAX(I-l) ) ) /  (YKAX(I)  -YMaX(I-l) ) 

240  VALX-(DPR*(XCRD(I)-XCRD(I-1)))/D 

241  VALX-(DPS«(YBAR(I)-YBAR(1-1)))/D 

242  VALX-VAUC+XCRDd-l) 

243  VALY-ViLX+YBiR(I-l) 

244  RETOBH 

245  ENO 


Name 

Type 

Offset 

P 

Class 

CMAG 

REAL 

4 

* 

0 

REAL 

348 

OPR 

REAL 

352 

I 

INTEGER*  4 

0 

♦ 

PT 

REAL 

0 

/COMMQQ/ 

SORT 

INTRINSIC 

7ALX 

REAL 

3 

* 

7ALY 

REAL 

12 

/COMMQQ/ 

XCRO 

REAL 

2300 

222 
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YCTT 

SEAL 

1600 

/COMHOQ/ 

YDEV 

REAL 

1200 

/catatGQ/ 

XKAX 

REAL 

2400 

/COMMQQ/ 

24$ 

247 

243 

243 

250 

251 

252 

253 

254 

255 
250 
257 
253 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 
293 


Str:2C0TI3re  7IKDPr(I,attG,73LLXl,7ALX2) 

.’fcaTaoo,2)  .noixfioo) , 

X  a^3D\xQQ] 

Cixeclt  first  to  s««  if  oax  fsLlla  wlthia  tho  cutoff 


?UC-0 

u^l 

Yi-mafi) 

vi-Ycrra.ii) 

0100  CCNTOOE 

YG-!fCT(l,LI,) 

CALL  ?r(I,YG,YjaG) 

I?  ( GOG .  tZ .  YKAG )  THES 
Y7XL-YC5T(I,LL) 

ELSZ 


Perfora  bis«ctia7  convargang^  routina 


0010  coffnsnr 

YG-(YH-Y2)/2.0 
CALL  rX(I,7G,YKAG) 

coii^(C»aAG-<aaG)  *ioo.o)/cMAG 
I?{ABS(C3K)  .LZ.1.0)GO  TO  0020 
IF(?LAG.3Q.0)TaE!I 

17  caaG.GT.csaG)  lasa: 
yi-?g 
ZLSZ 
Y2-7G 
EKDE? 

5XSZ 

17  (YHAG.GT.  OaG)  TSSN 
Y2-YG 
SLSZ 
Yl-YG 
EJTOI? 

EJfDIT 
GO  TO  0010 
0020  CONTISUZ 
TTAL-YG 
SNDET 

r7(niG.ZQ.ojTHEy 

'/alh-ytai. 

zx^z 

7AIjr2»'f7AI. 

ziroiT 

IZfriAG.ZQ.Ol'T'HEJf 

riAc-1 

■ri-YZASC) 

w«2 
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299 

xi-YCDT{r,: 

300 

GO  TO  0100 

301 

ENDIF 

302 

RETtJRN 

303 

END 

Nana 

Typa 

aiistt  ?  Clans 

ABS 

INTRINSIC 

CMXG 

REAL 

4  * 

COM 

REAL 

384 

FLAG 

REAL 

358 

I 

I1ITEGER*4 

0  * 

LL 

IMTEGER44 

380 

PT 

REAL 

0  /COMHQQ/ 

7ALY1 

REAL 

8  • 

VALX2 

REAL 

12  * 

XCRO 

REAL 

2800  /COMHQQ/ 

?1 

REAL 

384 

Y2 

REAL 

388 

YBAR 

REAL 

300  /COMHQQ/ 

YCOT 

REAL 

1800  /COMHQQ/ 

YDEV 

REAL 

UOO  /COHMQQ/ 

YG 

REAL 

372 

YMAG 

REAL 

378 

YIIAX 

REAL 

2400  /COMHQQ/ 

YVAL 

REAL 

380 

204 
305  C 
30«  C 

307  C 

308  SOBROCmSE  FJCfl,  lfG,SiaS) 

309  COMWOH  PT(100,2)  ,'ZBAR(100)  ,ltDEV(100)  ,tarr(100,2)  ,FM»X(100)  , 

310  1  XCSO(IOO) 

3U  sx-aa-madD/TOBVd) 

312  EX— 0.S*(aC*EX) 

313  yMAfi-EXP(XX)*raAX(l) 

314  RETOBS 

315  END 


Name 

Type 

OfJset 

P 

Class 

EX 

REAL 

388 

zxs 

INTRINSIC 

I 

INTBGER*4 

0 

* 

PT 

REAL 

0 

/COMHQQ/ 

XCRD 

REAL 

2300 

/CCKiQQ/ 

YBAR 

REAL 

300 

/COMHQQ/ 

YC3T 

REAL 

1800 

/COMHQQ/ 

YDEV 

REAL 

1200 

/COMHQQ/ 

YG 

REAL 

4 

* 

YMAG 

REAL 

3 

* 

YMAX 

REAL 

2400 

/COMHQQ/ 
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COMHQQ 

cotrroa 

PIMDPT 

7X 

LnmiT 


3200  COMfOH 
PBOCHAM 
SOBSOOTIHE 
StlBSOtmUE 
SITBBOQTINZ 


Pass  0ns  Ko  Errors  Datectsd 
3X5  Sourea  l>inas 
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1  $DEBOG 

2  PROGBAM  REFVOL 

3  c******************«************************************************* 

4  c*****  This  pro^raa  is  dssignad  to  hslp  ths  osar  dstarain*  th* 

5  c*****  raprssantativs  voluma  for  a  spacifisd  sample  by  :  *** 

S  C*****  1)  Coaputing  tha  spraad  of  divarsity  in  a  *** 

7  c*****  by  craatin?  histograms  for  a  cartian  *»*- 

8  c*****  dimension.  *•* 

9  C*****  2)  Increasing  tha  siza  of  tha  dimansion 

10  c***'*'*  racogiputing  tha  affective  spraad  in  the  ••• 

11  c*****  sample.  *** 

12  C******************************************************************** 


13  DIMENSION  SR(20,20)  .CR£P(3,3)  ,BAIIEP(20)  ,SDREF(20) 

14  CaASACTER*10  FILEl 

15  MRITE(*,*)'  GIVE  INPUT  FILE  NAME' 

16  READ (*,  0005 )FILE1 

17  0005  FORMXT(Aia) 

18  OPEN(ia,FrL2«FILEl,STATOS-'OLD') 

19  K£A0(10,*)GRDH 

20  DO  0010  Il«l,  20 

1  21  DO  0010  12-1,  20 

2  22  0010  R£AO(10,*)GR(IX,I2) 

23  0015  WR1TE<*,*)'  GIVE  HO.  OP  EVXLDATIONS  TO  PERFORM' 

24  R£A0<*,*,£RR-0015)NAN 

25  IF(NAN.IZ.0)MAN-1 

26  C 

27  C  Input  is  completa.  Thus  start  Analysis 

28  C 

29  DO  0020  Il-l,  HAN 

1  30  WH1TE(«,*)'  WORKING  ON  ',11, 'th.  DIMENSION' 

1  31  AHEP-(FL0AT(I1;  GaDM)*(FLOAT(Il)*GHDM) 

1  32  DO  0030  12-1,  3 

2  33  DO  0030  13-1,  3 

3  34  C 

3  35  ISTSl-(  (12-1)  *11)7-1 

3  36  ISTPl-ISTRlT-Il-l 

3  37  ISTR2-((I3-1)*I1)+1 

3  38  ISTP2-ISTR2+tl-l 

3  39  CEEP(12,13)»0.0 

3  40  DO  0040  14-ISTR1,ISTP1 

4  41  DO  0040  I5-ISTR2,tSTP2 

5  42  0040  CHEP(I2,I3)-CREP(12,I3)+GR(I4,I5) 

3  43  CREP(I2,I3)-(CREP(12,I3)*100.0)/AREP 

3  44  0030  CONTINDE 

1  45  C 

1  46  C  COMPUTE  THE  MEAN  AND  VARIATION  FOR  PARTICULAR  DIMENSION 

1  47  C 

1  48  3ARE?(I1)-0.0 

1  49  SDREP(Il)-0.0 

1  50  DO  0050  12-1,3 

2  51  DO  0050  13-1,3 

3  52  RPr-CRE?(I2,;3) 

3  53  SDRSP(Il)-SDR£?(Il)-j-{(RFI*RFI)/9.0) 

3  54  BAREP(Il)-BAaZP(Il)  +  (RFI/9.0) 

3  55  0050  COKTIMUS 

1  56  S0RE?(Il)-S<3RT(S0RZP(ll)-fBAREP(Il)*BARE?(Il))) 


57  0020  CONTINUE 

58  C 

59  C  WRITS  OUT  THE  FINAL  RESULTS 
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60  C 

61 
63 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

1  77 

1  78 

1  79 

1  80 

1  31 

1  83 

33 
84 

as 

1  86 

87 

88 

89 

90 

91 
93 
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0060  WRITE(*,»)'  TERMIMAL  ->0  PRXNTER  ->1' 

REAS  ( * ,  * ,  2B»-0060 )  ZW 
I7(1W.HZ.0)THEM 
OPEN(7,rCLZ-'PRH') 

IW-7 

EKDI? 

rWA-0 

0100  WRrrS(IRA,011Q) 

0110  FORMXXCl',//, 

1  '  ' 

2  ' 

3  ' 

4  ' 

5  ' 

6  ' 

DO  0120  Il-l,MMf 
0rM-G8DII*PL3AT  ( 1 1 ) 

HRITE(T!IX,0130)I1,DIM,3AR£P(I1}  ,S0R£P(I1) 

0130  FOSKAXC 


'  1  MS,'  1  ',F10.2,' 

1  ',710.2,' 

1^  ',710.2,' 

1' 

II  I-  I 

0120  CONTliraZ 

WRITB(IRi,0125) 

0125  FORHAT('1',//,20X,  ' - CLOSTEa  AREA  DATA  BASE  - ') 

DO  0135  11-1,20 

0135  WR3:TS(riaL,0140)  (GR(I1,I2)  ,I2'-1,20) 

0140  FORMAT(/,20(1XF3.0)  ) 

I?  (IW.  2Q.7 .  AMD.  rWA.  EQ .  0)  THEN 
IHA-7 
GO  TO  0100 
EKDI7 
END 


REPRESENTATIVE 

VOLDME  ANALYSIS 

Anal 

Dimansion 

Maan 

Std.  Dav. 

Ha. 

(M«E-4) 

(») 

(*> 

Hama  Typa  OffsaC  P  Class 


AHEP 

REAL 

BARER 

REAL 

CREP 

REAL 

DIM 

REAL 

FILEl 

FLOAT 

CHAR*10 

SR 

REAL 

SRDK 

REAL 

ri 

IHTEGER*4 

12 

INTEGER*4 

13 

INTEGER*4 

14 

integer-4 

15 

INTEGER* 4 

ISTPl 

INTSGER-4 

ISTP2 

INTEGER* 4 

ISTRl 

INTEGER-4 

ISTR2 

INTEGER-4 

IW 

IHTSGER*4 

IWA 

INTEGER-4 

H3UI 

INTEGER*  4 

RFI 

REAL 

SDREP 

SORT 

REAL 

1348 

1732 

1696 

2360 

1812 

INTRINSIC 

16 

1823 

1332 

1336 

1352 

1372 

1380 

1360 

1368 

1356 

1364 

1892 

1896 

1340 

1383 

1616 


INTRINSIC 
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SEPVOI. 

Pam  Ona 


7 


Size  Class 

PROGRAM 
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No. Errors  Detected 
92  Source  Lines 
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1  $debu9 

2  Progran  Morphol 

3  c******************************************************************** 

4  C*****  This  progran  la  dosignsd  to  coapute  ths  nuabsr  of  clustsrs  ** 

5  c*****  in  a  givan  class  par  unit  voluas  of  aatariad..  This  is  to  ** 

6  C*-»**»  bs  ps^oraad  using  an  algoritha  similar  to  that  ussd  in  Os-** 

7  c*****  Hoffs  alllpsiod  analysis.  This  algorithm,  howsvsr,  has  ** 

8  C*****  bean  ganaralizad  to  coaputa  tba  nuabar  of  both  oblata  and  ** 

9  c*****  prolata  spharoids  within  a  givam  class  as  well  as  a  poss-  ** 

10  c*****  ibla  aspect  ratio  for  each  class.  ** 


1 


1 

1 

2 

2 

2 

2 


11  C*********************************************************** 

12  reaLl*S  rj , ra,raml,phi,qs,rho,rhoa,rhoal,dphi,c(40,40) 

13  real*4  ri(lOOO) ,s(iaoo) ,na(40) ,nj  (40) 

14  diaension  drj(2i  ,g(2)  ,)c(2) 

15  charactar*10  fil 

16  character*!  label (2) 

17  charactar*40  title 

18  data  label/ 'Pro' , 'Obi'/ 

19  c 

20  c  Input  the  necessary  Information 

21  c 

22  0005  writa(*,*)'  Siva  filename  ' 

23  read (*, 0010, err^OOOS)  fil 

24  0010  foraat(alO) 

25  open(5,fila->fil,atatua»'old') 

26  read(5,*)lct,delr 

27  do  0013  i-l,lct 

28  0013  read(5,*)na(l) 

29  close(S) 

30  0015  write(*,*)'  Give  no.  of  prolate  and  oblata  classes' 

31  raad(*,*,arr-001S)]c(l)  ,)t(2) 

32  i£(lc(l)  .gt.0)than 

33  0020  write(*,*)'  Give  prmar  and  aspect  ratio' 

34  read(*,*,*rr-0020)prBax,q(l) 

35  drj  (l)«ptaax/'lodt()e(l) ) 

36  endif 

37  i£()e(2)  .gt.Ojthen 

38  0025  write(*,*)'  Give  oraax  and  aspect  ratio' 

39  read(*,*,err«0025Joraax,q(2) 

40  drj  (2]-oraax/flaat(k(2) ) 

41  endif 

42  ]cut-lc(l}+)c(2) 

43  write(*,*)'  Give  title' 

44  read(*,0030)title 

45  0030  focmat(a40) 

46  c 

47  c  Integrate  the  probability  coefficients 

48  C 

49  do  0100  iaal.kt 

50  ra-delr*float(ia) 

51  raBl-deir*float(ia-l) 

52  do  0110  j>l,lcut 

53  c<ia,j)«0.0 

54  if{j.le.X(l))then 

55  rj-dbl*(drj(l)*float(3)) 

56  qs"‘dble(q(l) ) 


2  57 

2  S3 

2  59 


r3-dble(dr3  (2)  *£loat(  j-lc(i) ) ) 
qs-dbl*(l,o/g(2) ) 
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0 

Line# 

1 

2 

60 

2 

61 

2 

62 

3 

63 

3 

64 

3 

65 

3 

66 

3 

67 

3 

68 

3 

69 

0120 

2 

70 

2 

71 

2 

72 

2 

73 

2 

74 

0109 

2 

75 

0110 

1 

76 

0100 

77 

c 

78 

c 

79 

c 

80 

31 

c 

32 

33 

84 

c 

35 

86 

c 

87 

c 

38 

c 

89 

0200 

90 

91 

92 

93 

94 

0210 

95 

96 

0220 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

1 

110 

1 

111 

1 

112 

1 

113 

1 

114 

1 
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7 

endif 

dphi-l. 570796327/180 . 0 
do  0120  il>l,18a 
phi-1. 5707963*dlll«(il)/180.0 
call  coarho(rj,raal,phl,qs,rbo) 
rhomi-rho 

call  caKrho(rj,ra,phi,qs,rho) 
rhoa-rho 

c(ia,  j)«c(ia,  j)+(  (rhoml-rhoa)  *dsin(phi)  *dphi) 
contlnoa 

o(ia,j)-2.0*c(ia, j) 

if  (c(ia,j)  . It. 0. 00001) c(ia,j) -0.0 

tfrita(*,»)'  ' 

writa(*,0109)  ia,  j  ,c(ia,  j) 

foraat(///'  C( io, Mo, .915.9) 


solve  for  Che  Mj's 
ivronq-0 

call  prareq(c,na,]cut,!ct,iwronq) 
if (iwronq.eq.l)qo  to  0999 

call  solve ()cut, c,hj  ,na) 

Write  out  the  output  for  the  cases 

vrita(*,»)'  Terminal  ->0  Printer  ->l  Pile  ->2' 

read(*,»,err»0200)  iflq 

if  ( iflg,  aq.  1)  open  (7,  file— 'prn' ) 

i  f  ( if  Ig .  eq .  2 )  open  ( 7 ,  f  i  le- '  tab  1  e .  dat ' ,  status- '  new ' ) 
iw»o 


tfTite(iv,0220) title 
FORHWC'l  •,///, 

1  ' 

2 

3 

4 

5 


Kuoin-Lesser  ELUPSOIO  ANALYSIS 
for  VOLOKETRIC  CLDSTER  D.ISTRIBDTIOM 


',A40, ' 


f.fOl-0.0 
do  0250  i-l,:« 
if(i.la.X(l))than 
it-i 

j-i 

else 

it-2 

j-i-ic(ll 


I'/ 


6  ' 

7  ' 

Equiv. 

Partcle 

Ko.  of 

“ - -  "  ■ 

8  ' 

Part  Cl 

Parcel a 

Aspet. 

Vol. 

Particle 

Class 

9  ' 

Type 

Rad. 

Ratio 

(mol) 

per 

Volume 

A  ' 

B  ' 

— 

(SB) 

, - ,  ,  , - 

(Bm3) 

(bbO) 

— 

'/ 

'/ 

'/ 

'/ 

'/ 

V 
'/ 
'/ 

V 

') 


endif 

rad-drj  ( it)  »f loat  ( j ) 
pvol-4. 138790204*  (rad**3) 


1  116 
1  117 

1  113 
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1  126 
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130 
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132 

133 

134 

135 

136 

137 

138 

139  O 

140  C 

141  c 

142 

143 

144 
1  145 

1  146 

147 

148 

149 
1  ISO 
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1  152 

1  153 

154 

155 
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150 
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164 
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1  171 

1  172 

1  173 

1  174 
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cvol»nj (i) ‘pval 

tvol-tvol+cvol 

write (iw,  0230)  label  (it)  ,rad,q(it)  ,pvol,nj  (i)  ,cvol 
0230  faraat( 

1  '  1  ',a3,'  |',f9.S,'|'f8.4,'|'/f9-S.'l'.«10-S.'l'. 

2  C9.6,'| ') 
write(iw,0240) 

0240  fQraat( 

1  .  I - 1 - 1 - 1 - 1 - 1 - 1., 

0250  continue 

write (iw, 0270) tvol 
0270  forBat( 


:  1 

Total  Volume  -  ' ,  fl2 . 6 , ' 

IV 

1 

if  (iflq.aq.2.and.iw.eq.7)close(7) 
if  (iflq.na.O.and.iw.eq.O)then 
iw»7 

qo  to  0210 
endif 

Write  output  for  file  information 

if(lc(l)  .gt.0)tlion 
suir>0.0 

do  0300  i=l,:c(l) 

SUB«SUBH-nj  ( i) 

0300  continue 
rap-0.0 
sdp-0 . 0 

do  0310  i-l,lc(l) 
rad-float (i) *drj (1) 
rap-rap+(rad*nj  (i)/sum) 
adp-sdp*-(rad*rad*nj  (i)/sum) 

0310  continue 

open(7,file-'lptl') 
write(7,0320)k(l)  .mo.adp 
0320  foraat('  SSTIHATEO  0ISTN  •*•',/ 

1  '  Ho.  Prolate  Classes  -',i5,/ 

2  '  HEAN-' ,010.4, '  SDEV-' ,G10.4) 
close (7) 

endif 

if  (X(2)  .qt.0)tiien 
SUB-0.0 

)CtOC-l4(l)+lC(2) 
do  Q.'30  i-)c(l)  ,lctot 
sum-suB+nj (i) 

0330  continue 
rao-o.Q 
sdo-o . 0 

do  0340  i»lc(l)  ,lctot 
j-lc(l)-i 

rad-floac(j)  ‘d^  (2) 
nao-rao+(rad*nj  (i)/suB) 
sdo— sdo+-  ( r3d*rad*n  j  ( i )  / sua) 

0340  continue 


175  ODen(7, file-'lptl') 

176  write(7,0350))t(2)  ,rmo,sdo 

177  0350  format('  ***  ESTIMATED  DISTN  *«•',/ 
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□  Linel 
173 
179 

130 

131 

132 

133 


1  7 

1  '  Mo.  Qblat*  Claaaaa— ' 

2  '  OBIATE  HEAM-' ,<:i0.4, 

cloaa(7) 

audit 

0999  contlnua 
end 


IS,/ 
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SDEV-',G10.4) 


Maaa  Type 


Offset  P  Claaa 


c 

REALMS 

3362 

C701, 

REAL 

222S0 

DDLS 

DEtS 

REAL 

21182 

DPHI 

REAL*  8 

21354 

DBJ 

REAL 

3340 

DSIN 

?IL 

CHAR*10 

21162 

FLOAT 

I 

INTEGER*4 

21186 

11 

INTEGER*  4 

21362 

lA 

LNTEGER*4 

21306 

IFL3 

INTEGER*  4 

21438 

IT 

INTEGER* 4 

22238 

IW 

INTEGER* 4 

21442 

IWHOMG 

INTSGER*4 

21434 

J 

INTEGER*4 

21330 

5 

XNTEGER*4 

3348 

XT 

INTEGER* 4 

21178 

XTOT 

INTEGER*  4 

22890 

IDT 

INTEGER*4 

21202 

LABEL 

CHAR*3 

8356 

MA 

REAL 

3020 

SJ 

REAL 

3180 

ORMAX 

REAL 

21198 

PHI 

REAL'S 

21366 

PRMAX 

REAL 

2U94 

7V0L 

REAL 

22246 

Q 

REAL 

3012 

as 

REAL'S 

21346 

SA 

REAL'S 

21314 

RAO 

REAL 

22242 

RAHL 

REAL'S 

21322 

REO 

REAL'S 

21374 

RHOA 

REAL'S 

21390 

3HOK1 

REAL'S 

21382 

RI 

REAL 

4012 

SJ 

REAL'S 

21338 

-RMO 

REAL 

22398 

SKP 

REAL 

22714 

3 

REAL 

12 

SCO 

REAL 

22902 

SOP 

REAL 

22713 

SDM 

REAL 

22706 

TITLE 

CHAR*40 

21206 

TVOL 

REAL 

22230 

rUTRINSIC 


nmcQfsic 

INTRINSIC 
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c 

Subroutina  coBrho(Sj ,rl/phi,qs,rho) 
C*****************************************  •«••*•***•*****•*••*•*•*•*• 
C*****  This  routine  is  dasignad  to  coaputa  tha  vaiua  at  rho  in  **• 
C-*****  OahotT's  solution  for  a  prolata  sphariod  glvan  a  vaiua  of  *** 
C***a*  Rj ,  rl,  Q,  and  angla  phi.  (phi  ia  in  radians) 

QS-Oj  (PHOLA33)  »** 

C**-»**  QS-l.O/Qj  (OBIATE) 

C**********<**«***************a********«*****«***«***««**«««««.«*«4«. 

real*8  l.m.n.Rj ,rl,phi,qs,rbo,dc,ds 

dc-dcos{phi) 

ds«dsin(phi) 

1~  ( dc*dc)  *  ( q3*qs*ds*ds ) 

«■  (ds*ds )  +  ( qa»qs*dc*dc) 
n~(ds*ds*dc*dc)  *(1.0-q3*qs) 
c 

c  Coaputa  Bho 
c 

rho-(ri*ri) /dsqrt ( 1) 

rhO-rho-(  ( ( (qs)  •*  1.666666666)  *Rj*Rj)/l) 
rho-(riio»l»i)/(n-;t»l) ) 
if (rho. It. 0.0) the 
rho-0.0 
else 

rho^sqrt  ( rho) 
endif 
return 
end 


Kane 

Type 

o 

M 

ft 

? 

Class 

DC 

REAL'S 

23032 

ocos 

ETTRINSIC 

OS 

REAL'S 

23090 

DSIH 

DPTRIRSIC 

DSQRT 

INTRINSIC 

L 

REAL'S 

23098 

K 

REAL'S 

23106 

H 

REAL'S 

23114 

PHX 

REAL'S 

3 

* 

QS 

REAL'S 

12 

RHO 

REAL'S 

16 

* 

RI 

REAL'S 

4 

* 

RJ 

REAL'S 

0 

« 

214  C 

215  C 

216  C 

217  SCBROOTINE  ?REREG(A,  IWROHG) 

218  REAL'S  A(40, 40)  ,A5I3(40, 40) 

219  OIXENSIOH  3(40)  , 3SQ (40) 

220  IF(M.GT.fflI)THEK 

221  »RITE(»,»)'  SYSTEM  OF  SQS  CART  BE  SOLVED' 

222  ri»R0NG-l 

223  GO  TO  0999 


224 

225 

1  226 


ENDI? 

DO  0010  1-1,  M 
DO  0020  J-l,.*! 


233 


0  line# 

1 

7 

2 

227 

ASQ(r,J)-0.0 

2 

228 

DO  0030  K«1,MK 

3 

229 

ASQ(I,J)-ASQ(I,J)  +  (A(K,I) 

3 

230 

0030 

COMTIMDE 

2 

231 

0020 

COMTXRUE 

1 

232 

0010 

CONTINUE 

233 

c 

234 

DO  0040  I«1,M 

1 

235 

BSa(X)-0.0 

1 

236 

DO  0050  K>1,MH 

2 

237 

ADOH>SNGL(A(X,I)) 

2 

238 

BS0(l)-BS0(I]  +  (ADaH*B(K] ) 

2 

239 

0050 

CONTINUE 

1 

240 

0040 

CONTZEUE 

241 

c 

242 

DO  0060  I>1,M 

1 

243 

DO  0070  J-1,M 

2 

244 

A(I,J)-ASQ(I,J) 

2 

245 

0070 

CONTtHUE 

1 

246 

B(I)-BSQ(I) 

1 

247 

0060 

CONTimiE 

248 

0999 

RETDRH 

249 

END 

traaa 

Type 

Offset  P  Class 

A 

R£AL*8 

0  * 

ADOM 

REAL 

36114 

ABQ 

R£AI.*8 

23282 

B 

REAL 

4  » 

B5Q 

REAL 

23122 

I 

nPrEGER*4  36082 

INROtfS 

XirrEGER*4  16  * 

J 

XlPrEGER*4  36090 

X 

Iim:GZR*4  36098 

M 

rHTEGER*4  8  * 

MK 

IirTEGEH-»4  12  * 

SNSL 


nmcDfsic 
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1 


1 


250 

251 

252 

253 

254 

255 

256 

257 
253 

259 

260 
261 
262 

263 

264 

265 


C 

StJBROOTINE  S0LVE(N,A,X1,B1) 

C**-***************-**************************-************************* 

C*****  This  rowtine  solves  a  linear  systaa-  of  equacions  (  Ax-b)  ••• 
C*****  by  uslnq  Gauss  reduction.  Tbis  aetbod  doss  not  require  *** 
that  the  aatrix  A  be  syaaetric. 

C***************'********'**********’*********************'************** 

real»8  A(40, 40) ,XC40) ,B{40) 
dimension  Xl(40) ,B1(40) 
do  0010  i-1,40 
B(I)-0BIZ{B1(I) ) 

0010  COHTIBUE 

c 

C  Trianqularize  tbe  A  aatrix 

c 


266  tm-H-1 

267  DO  0100  X-1,!W 

268  KX-K+l 


234 


0 

Line# 

1 

1 

269 

2 

270 

2 

271 

2 

272 

3 

273 

0100 

274 

c 

275 

c 

276 

c 

277 

278 

1 

279 

1 

280 

1 

281 

1 

282 

2 

283 

0400 

1 

284 

1 

285 

0300 

286 

1 

287 

0030 

288 

289 

7 
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DO  0100  laKK,!! 

C-A(I,X)/A(X,K) 

B(I)-B(I)-B(X) *C 
DO  0100  J-K,M 
A(I,J)-A(I,J)-A(K,J)*C 

Solvs  for  X  vsctor  (solution  vsctor) 

X(N)-B(M)/A(K,H) 

DO  0300  x«i,inr 

I- H-K 

II- I+l 
00.0 
DO  0400 

OC+A(I,J)  *X(J) 

X(I)-(B(I)-C)/A(I,I) 

CONTXmTE 

DO  0030  1-1,40 

X1(I1-SHGL(X(I)) 

RETOSM 

END 


Netne 

Type 

Offset 

P 

Class 

A 

RZAL*8 

4 

ft 

B 

REAL*8 

36446 

31 

REAL 

12 

ft 

C 

REAL 

36790 

DBLE 

I 

IIITSGER*4 

36766 

INTRIMSIC 

II 

I!rrEGER*4 

36806 

J 

INTEGER* 4 

36794 

X 

INTEGER** 

36774 

KX 

INTEGER** 

36782 

M 

INTEGER** 

0 

ft 

HH 

INTEGER** 

36770 

SHGL 

X 

R£AL*8 

36126 

XNTRXKSIC 

XI 

REAL 

8 

ft 

Hama 

Type 

Size 

Class 

COHRHO 

MORFHO 

PRERXG 

SOLVS 


SUBROOTIKE 

PROCRAM 

SX7BROOTIME 

SDBROOTTKE 


Pass  On« 


Ko  Errors  Dstsctsd 
289  Sourca  Lines 
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1  $d«bug 

2  Program  Horphol 

3  c******************************************************************** 

4  C*****  This  program  Is  d*sign*d  to  comput*  th*  number  at  clustars  ** 

5  c*****  in  a  given  class  per  unit  volume  of  material.  This  is  to  •* 

S  c*****  be  performed  using  an  algorithm  similar  to  that  used  in  De-** 

7  Hoffs  ellipsiod  analysis.  This  algorithm,  hovever,  has  *• 

g  c*****  been  generalized  to  compute  th*  number  of  both  oblate  and  ** 

9  c*****  prolate  spheroids  vithin  a  given  class  as  veil  as  a  peas-  *• 

10  c*****  ible  aspe^  ratio  for  each  class.  ** 


11 

12 

raal*8  rj,ra,raal,phi,qs,rho,rhoa,rhoal,dphi,c(40,40) 

13 

realM  ri(lOOO)  ,*(1000)  ,na(40)  ,nj  (40) 

14 

dimension  drj  (2)  ,q(2)  ,!c(2) 

15 

character*10  afii,sfil 

16 

character*!  label ( 2 ) 

17 

character*40  title 

18 

data  label/ 'Pro', 'Obi'/ 

19 

c 

20 

c 

Input  the  necessary  Information 

21 

c 

22 

0005 

write(*,*)'  Give  the  filename  for  the  ABEA.  AjRBAy' 

23 

read( * , 0010 , arr*000S )  af  il 

24 

0010 

format (alO) 

25 

open  ( 5 ,  f  il*-af  il ,  status-'  old' ) 

26 

rmax-o.o 

27 

do  0015  i-1,1000 

1 

28 

read(5, *)dum 

1 

29 

if (dum.eq.-999.]go  to  0020 

30 

ri(i) -(sqrC(du»v'3 . 14159)  )/10. 0 

I 

31 

if  (ri(i)  .gt.max)  rmax»ri(i) 

1 

32 

0015 

continue 

33 

0020 

continue 

34 

npts-i-i 

35 

close (5) 

36 

c 

3T 

0025 

writa(»,*)'  Give  th*  filename  for  the  SHAPE  FACT  ASRAf' 

38 

read  ( * ,  0010 ,  err-002S )  sf  il 

39 

open  ( 5 ,  file-sf  il ,  status-'  old' ) 

40 

amin-1.0 

41 

amax-O.O 

42 

aave-o.o 

43 

do  0026  i-1,1000 

1 

44 

read(S,*)dum 

1 

45 

if (dun. eq. -999.) go  to  0030 

1 

46 

s(i)-dua 

47 

if  (s(i]  .It.amin)aainas(i) 

1 

48 

if  (s(i)  .gt.amaxi  aBax-s(i) 

1 

49 

aave-aav**s  ( i) 

7 

so 

0026 

continns 

51 

0030 

continue 

52 

close (5) 

53 

aave-aav*/ f loat ( i-1 ) 

54 

writ*(*,»)'  Ho.  of  Points  -',npts 

55 

writ*(*,*)'  ' 

56 

0035 

write(*,«)'  Civ*  desired  no  of  classes  l<->20' 

57 

write{*,*)'  for  th*  prolate  and  oblate  respectively' 

58 

read(*,»,arr"Q03S)X(l)  ,Jc(2) 

59 

write(*,*)'  ' 
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80 

if(5c(l)  .5t:.20)ka)-10 

61 

if  (X(2)  .gt.20)X(2)-10 

62 

writ*(*,»)'  ASPECT  RATIO  IHPORMXTIOM' 

63 

writ«(*,*)'  Ma)c>' ,amax, '  Min«',aain,'  Ava-',aave 

64 

if  (X(l)  .gft.OJthan 

65 

writa(*,*)'  Prolata  giva  aspact  ratio,  l^^ly^llnT1ll  radius' 

66 

raad(*,*)q(l)  ,pmax 

67 

c 

praax»cmar/(g(l)  **0.3333) 

68 

c 

praaxpnraax 

69 

drj  {l)>>pr9aVTloat(k{l) ) 

70 

writa(»,»)'  Prolata  Eguiv.  Rad  inc"  -',drj(l) 

71 

andif 

72 

if (X(2) .gt.0)than 

73 

writa(*,*)'  Oblata  giva  aspact  ratio,  My^«p™  radius' 

74 

read(*,*)q(2) ,ormax 

75 

c 

amax-r9ax*(q(2]  **0.1667) 

76 

c 

otatajmaat 

77 

drj  ( 2 ) -ormaV  Sloat  (k  ( 2 ) ) 

78 

writaf*,*)'  Oblata  Equiv.  Rad.  ine  “',drj(2) 

79 

andif 

80 

vrrita(*,*)'  Siva  Titla  for  data  sat' 

81 

raad ( * , 004  0 ) titla 

82 

0040 

forBat(a40) 

33 

0045 

vrita (*,*)'  diva  siza  of  AKALTSIS  AREA  (map)' 

84 

raad  ( * ,  * ,  err>«004S)  taraa 

85 

c 

86 

c 

Compute  tba  maximma  radius,  ra,  and  na 

87 

c 

88 

kt-k(l)+k(2) 

89 

dalr-miax/ float  (kt) 

90 

opan(S,  fiie>'td.dat' ,status«'naw') 

91 

vrita ( * , 0040 ) titla 

92 

do  0060  i-l,kt 

1 

93 

bl-dalr*float(i-l) 

1 

94 

ul»dalr*float  (i ) 

1 

95 

nct»0 

1 

96 

do  0055  j<*l,npts 

2 

97 

0053 

if  (ri(j)  .gt.bl.and.rl(j)  .le.ul)nct«nct+l 

1 

98 

naH)  *f  laat(nct)  /taraa 

1 

99 

writa(*,*)'  na( '  ,i, ')-' ,na(i) 

1 

100 

writa(5,*)bl,0.0 

101 

writa(5,*ibl,na{l) 

1 

102 

writa(5,*)  ul,na(i] 

I 

103 

writa(5,*)ul,0.0 

I 

104 

0060 

continue 

105 

vrita  <  5 , •) -999 . , -999 . 

106 

close (5) 

107 

e 

108 

c 

Intagrate  tbe  probability  coefficients 

109 

c 

110 

open  ( 6 ,  ;il*«'car.  dat ',  status-' new' ) 

lU 

do  0100  i4-l,kt 

1 

112 

ra“dolr*float ( ia) 

1 

113 

raml-delr*  float ( ia-1 ) 

114 

do  0110  j-l,kt 

2 

115 

c ( ia , j ) "0 . 0 

2 

116 

iX(j .la.k(l) Jtben 

2 

117 

rj-dbl*(dr3  (1)  *float<j) ) 

2 

113 

qs«dbia(q(l) ) 
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2 

119 

else 

2 

120- 

rj-dble(drj  (2)  ‘floatf  j-)t(l) ) ) 

2 

121 

qs-dble(1.0/q(2)) 

2 

122 

endif 

2 

123 

dphi-1. 570796327/180.0 

2 

124 

do  0120  il>l,180 

3 

125 

phi-l .  5707963  *dble(il)/180.0 

3 

126 

call  coBrtio(rj,raml,pbi,qa,rbo) 

3 

127 

rboBl*>rho 

3 

128 

call  coarho(rj,ra,pbi,qs,rbo} 

3 

129 

rboa-rbo 

3 

130 

e  ( ia ,  j )  -c  ( ia ,  j )  +  ( ( rboml-rboa)  *ds  in  (pbi)  •dpni) 

3 

131 

0120 

continue 

2 

132 

c(ia, j)-2.0*c<ia, j) 

2 

133 

if  (c(ia,j)  .lt.0.00001jc(ia,j)-0.0 

2 

134 

writef*,*)'  ' 

2 

135 

write ( * , 0109 )  ia ,  j ,  c (ia, j ) 

2 

136 

write(6,0109) la, j ,c(ia,  j) 

2 

137 

0109 

foraat(///'  C( '  ,i3, ' , ' ,i3, ')-' ,gl5.9) 

2 

138 

01X0 

continue 

1 

139 

0100 

continue 

140 

close (6) 

141 

c 

142 

c 

solve  for  tbe  »j ' s 

143 

c 

144 

call  salva(lct,c,nj  ,na) 

145 

c 

do  0150  i-l,it 

146 

c 

if(nj(i).lt.0.0)nj(i)-0.0 

P0RTRAH77 
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147 

148 

149 

150 

151 

152 

153 

154 

155 
15« 

157 

158 

159 
150 
161 
162 
163 


170 

171 
1  172 

1  173 

1  174 

1  175 

1  176 

1  177 


0150  continue 

Write  out  tlie  output  for  tbe  cases 

Printer  ->l 


File  ->2' 


0200  write(«,*)'  Teraiaal  ->0 
read(*,»,err»0200) iflg 
if  ( if  Ig.  eg.  1)  open  (7,  f  ile-'pm' ) 
if  ( if  Ig .  eq .  2 )  open  (7 ,  file-'  table .  dat ' ,  status**'  new' ) 
iw»>o 

0210'  continue 

write ( iw, 0220) title 
0220  FORMAT ('!',///, 

1  ' 


KUnin-Lesser  ZLUPSOID  ANALYSIS 
for  VOtDHETSIC  CIUSTSR  DISTRIBDTIOH 


’  ,A40, ' 


tvol“0.0 
do  0250  i-l,tt 
if (i.le.X(l))tben 
it-1 
j-i 

else 

it"2 

j-i-ic(l) 


ly 


164 

6  ' 

— 

165 

7  ' 

Squiv. 

Partcle 

Ho.  of 

166 

3  ' 

Partci 

Partcle 

Aspet. 

Vol. 

Particle 

Class 

167 

9  ' 

Type 

Rad. 

Ratio 

(aa3) 

per 

VolUBS 

168 

169 

A  ' 

3  ' 

(am) 

_ T-.-U—  .. 

(aaa3) 

(am3) 

V 
'/ 
'/ 
'/ 

'/ 

'/ 

v 

V 

V 

') 
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1  1?8  andif 

1  i?9  rad«drj  (it) ‘floatCj) 

1  180  pvol»4.188?90204*(rad**3) 

1  181  cvoi»nj{i)*pvol 

1  182  tvol«tvol+cvol 

1  183  writ*(iw,0230)label(it).rad,q(it),pvol,nj(i),cvol 

1  184  0230  foraat( 

1  1  '  j  ',a3,'  I',f9.5,'('f8.4,'|',f9.S,'|',fl0.6,'(', 

1  186  2  f9.S,'|')  ' 

1  187  vrita(iv,0240) 

1  188  0240  formate 

1  189  1  '  I - 1 - 1 - 1 - 1 - 1 - 

1  190  0250  continaa 

191  writ*(iw,02?0)tvol 

192  0270  formate 

193  ^  '  I  Total  Volume  -  ',fi2.S,'  I 

194  2  '  I - — — — _ _ _ 

195 

196  if  (iflg.eq.2.and.iw.*q.7)clo**(7) 

197  If  (iflg.na.a.wd.iw.*q.0)tban 

198  iw»7 

199  go  to  0210 

200  andif 

201  c 

202  c  Writ*  otttout  for  file  information 

203  c 

204  3tp^999 . 

205  if  (k(l)  .gt.0)tJien 

206  opan(3,fila>'cvolp.dat'  ,stattts-'new') 

207  op*n(9,fil*-'tvolp.dat',atatua-'n*w') 

208  tvol«0.0 

209  do  0280  i-l,k(l) 

1  210  rad-drj(l)*floaC(l) 

1  211  rdmi-drj  ( 1)  ‘float  ( i-_) 

1  212  pvol»4.ia8790204*(rad**3) 

1  213  cvol»nJ  (i)  *pvol 

1  214  tvol«tvoli-c»ol 

1  215  writ*(8,»)rdBi,0.0 

1  216  writ*(a,*)rdmi,cvol 

1  217  write(8,*)tad,cvol 

1  218  writ*(8,»)rad,0.0 

1  213  write(9,*)rdml,tvol 

1  220  writ*(9,*)rad,tvol 

1  221  0230  contlma 

222  wtlt*(8,*)stp,stp 

223  wtlt*(9,  »jstp,stp 

224  clasa(8) 

225  clasa(9) 

226  andif 

227  if (X(2) .gt.0)than 

228  op*n(3,flle-'cvolo.dat' ,  status-' naw') 

229  op*n(9,file-'tvolo.dat' , status— 'naw') 

230  tvol«0.0 

231  do  0290  i-l,X(2) 

1  232  rad-drj  (2) ‘floatei) 

1  233  rdal-dr3(2)*float(i-l) 
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1  234  pvol-4. 138790204*  (rad*'*3) 

1  235  cvol-nj (i) »pvoi 

1  236  tvol-tvol+cvoi 


239 


0 
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7 

1 

237 

vrite(3,*)rdBl,0.0 

1 

238 

writ*(8,  •)rdal,cvol 

1 

239 

writ*  (8 ,  •)  rad,  cvol 

1 

240 

writ*(8,*)rad,0.0 

1 

241 

writ*  ( 9 ,  • )  rdaa ,  tvQl 

1 

242 

writ*  ( 9 ,  •)  rad,  cvol 

1 

243  0290 

coRtisoe 

244 

writ* ( 8 , • )  atp , stp 

245 

writ*(9,*)stp,stp 

246 

clos*(3) 

247 

clos«(9) 

248 

*ndif 

249 

and 
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Naa* 

Typ* 

AAVS 

REAL 

AFIL 

CHAR* 10 

AMAX 

REAL 

AMIN 

REAL 

BL 

REAL 

C 

REALMS 

C70L 

OBI£ 

REAL 

OELR 

REAL 

OPSI 

REAL*8 

OBJ 

OSIN 

REAL 

OUK 

FLOAT 

REAL 

I 

INTEGER*4 

11 

INTEGER*4 

lA 

INTEGER*4 

IFLG 

INTEGER«4 

IT 

INTEGER»4 

IN 

IMTEGER*4 

J 

INTEGZR*4 

K 

INTECER*4 

KT 

IHTECER*4 

LABEL 

CHAR*3 

KA 

REAL 

KCT 

rNTECER»4 

NJ 

REAL 

NPTS 

INTEGER* 4 

ORHAX 

REAL 

PHI 

REAL* 8 

PRHAX 

REAL 

PVOL 

REAL 

Q 

REAL 

QS 

REAL*8 

RA 

REAL*  8 

RAO 

REAL 

RAMI 

REAL*8 

ROHl 

REAL 

RHO 

REAL*S 

RHOA 

REAL*8 

RHOHl 

REAL'S 

R1 

REAL 

RJ 

REAL'S 

Offset  P  Class 

21212 

211«2 

21208 

21204 

21286 

3262 

22242 

INTRINSIC 

212?8 

21350 

3340 

INTRINSIC 

21186 

INTRINSIC 

21182 

213S8 

21306 

21430 

22230 

21434 

2U98 

3348 

2U74 

3356 

3020 

21294 

3180 

21190 

21220 

21362 

21216 

22238 

3012 

21342 

21314 

22234 

21322 

22706 

21370 

21386 

21378 

4012 

21334 
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SKAX  REAL 

21178 

S 

REAL 

12 

SFIL 

CHAR*  10 

21194 

SQRT 

STP 

REAL 

22698 

TAREA 

RE2a. 

21270 

TITtZ 

CEAR*40 

21224 

T70L 

REAL 

22222 

OL 

REAL 

21290 
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230 

251 

232 

253 

254 

255 
23S 
237 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 
275 

277 

278 

279 


c 

c 

c 

Sutaroutlns  coBZho(R)  ,ri,phl,q8,rbo) 

C*«***********«***M«*t<************<*****«***************«***»*****«* 
C*****  This  routlns  is  dssiqued  to  cooputs  the  value  of  rho  in  *** 
C-*****  Deboff's  solution  for  a  prolate  spberiod  given  a  value  of 
C*****  Rj,  ri,  Q,  and  angle  phi.  (pbi  is  in  radians)  *** 

QS^  (PROLMTE)  *** 

QS-l.O/Qj  (OBL2TE)  *** 

C*****«««*****«***«««*****«*«**«***««**********************«********* 


raal*8  l,a,a,Rj ,ri,pbi,qs,rbo,dc,ds 
dc-dcos(pbi) 
ds~dsin(pbii 
1- (dc*de)  t  (qs*qs*ds*ds) 
st>  ( da*ds) -t- (gs^qs^dc^dc) 
n«(da«ds*de*do)  *(1.0-qs*qs) 
c 

c  Compute  Rho 
c 

rho-  ( ri»ri)  /dsqrt  ( 1 ) 
rbo-rbo-(  ( ( (qs)  *»0 . 666666666)  *Rj*Rj)/l) 
rho-(rbo*l*l)/(n-(m*l) ) 
if (rbo.lt. 0.0)  then 
rbo-o . 0 
else 

rhe-dsqrt(rbo) 

endif 

return 

end 


Name 

Type 

Offset 

P 

Class 

DC 

reAL*8 

22714 

OCOS 

cmuacsic 

DS 

realms 

22722 

DSIR 

nrtiaHsic 

DSQRT 

IHTRIMSIC 

REAL*8 

22730 

M 

REALMS 

22738 

N 

REAL* 8 

22746 

PHI 

REAL*8 

3 

* 

QS 

REAL*3 

12 

* 

RHO 

REAL*8 

16 

* 

RI 

REAL*8 

4 

.RJ 

REAL*  8 

0 

« 

280  c 
’*1  c 
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282  C 

283  STTBBOOTDIZ  SOLVE(M,A,Xl,ai) 

284  C******************************************************************** 

285  c*****  This  routlns  solvas  a  linsar  systsa  of  aquations  (  Ax-b)  **• 

286  c*****  by  using  Sauss  redaction.  This  aathod  does  not  require  *** 

287  c*****  that  the  satrix  X  be  aynaetric.  *** 

288  C*»****»*»»*«*»*********«**»*»*»»***«»***««******************»*****» 

289  real*8  A(40,40)  ,X(40)  ,B(40) 

290  diaension  Xl(40)  ,B1(40) 

291  do  0010  i>1.40 

1  292  B(I}a0BLE{31(I]) 

1  293  0010  CONTBinE 

294  C 

295  C  Triangularize  the  A  matrix 

296  C* 

297  NN-H-1 

298  DO  0100  X'l.MM 

1  299  KK-K+l 

1  300  DO  0100  I-KX,X 

2  301  OA(I,X)/A(X,X) 

2  302  B(I)-B(I)-B(X)*C 

2  303  DO  0100  J-K,X 

3  304  0100  A(I,J)-A(I,J)-A(X,J)  *C 

305  C 

306  C  Solve  for  X  vector  (solution  vector) 

307  C 

308  X{M)-B(M)/A(K,M) 

309  DO  0300  X-1,XH 

1  310  I-M-K 

1  311  II-I+l 

1  312  00.0 

1  313  DO  0400  J-n.H 

2  314  0400  OC+A(I,  J)  •X(J) 

1  315  X(I)-(3<I)-C)/A<I,I) 

1  316  0300  CONTOTOE 

317  00  0030  I«l,40 

1  318  0030  X1(I)«SHCL(X{I)) 

319  RETORH 

320  END 


Meuse 

Type 

Offset 

? 

Class 

A 

REA1.*8 

4 

* 

a 

S2AI.*8 

23074 

31 

REAL 

12 

* 

c 

DBLZ 

REAL 

23413 

XHTRINSIC 

I 

OrrSGZR*4 

23394 

IX 

tjJT2GZR*4 

23434 

J 

iirrsGES*4 

23422 

X 

iirrsGER-*4 

23402 

•XT 

iirrECER*4 

23410 

M 

I1CTSGER*4 

0 

* 

MM 

SMGL 

ISTEGER*4 

23398 

IMTRIMSIC 

X 

REAL*8 

22754 

XI 

REAL 

8 

* 

0  Lin«« 

Haa« 

COHSHO 

MORFHO 

SOLVE 
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Type  Size  Claes 

SOTROOmiE 

PSOCKAM 

SaBROOTZ2rB 


Pass  One 


Ho  Errors  Detected 
320  Source  Lines 
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1  $STORAGE:  2 

2  $DEBna 

3  PROGSAK  PZONE 

4  C******************************************************************** 

5  C  mis  rotttin*  is  d«siga*d  to  proc*ss  infoxsation  regarding 

6  C  th*  demage  zone.  Th*  infonation  to  b*  procassed  is  read  in 

7  c  tb*  fan  of  a  aarias  of  norsal  distribution  curves,  mass 

8  C  curves  are  used  to  produce  a  3-0  aesb  and  the  corresponding 

9  C  results  are  than  used  to  cooputa  the  centroid  of  daaage  as 

10  C  well  as  the  volume  of  accumulated  daaage  for  each  interval. 

11  C******************************************************************** 

12  C 

13  C  Start  by  reading  in  the  input  Information 

14  C 

15  Real*8  70L<30)  ,XV0L(30)  ,?VOL(30)  ,R1(30) 

16  COMM0M/W0Hja/Z(4O.4O)  , XP(450)  , fI>(4S0)  , 2P(4S0)  ,P2(1S,5)  , 

17  1  2PU(S00)  ,VERTEX(16)  ,ZLEV(40)  ,YBAR{30)  ,roEV(30)  ,YaJT(30,2) 

18  C0KM0H/W0RIQ/niAX(30)  ,XCRD(30)  .!QnCT(450)  ,iaSK(6000)  ,LOIG(40)  , 

19  1  LWGT(40) 

20  CHAIIACTSS*10 

21  CRARXCrSR*30  XLABEL. YIABEL 

22  CHARACTER*  1  XLABEB(30)  , fLABEB(30) 

23  gQOITALgMCS  (XTABRB(l)  .XIABEL)  ,  <YLABgB(l)  ,  YIABEL) 

24  DATA  XLABEL/'  dRCOMFERENTIAI.  DIR  (mm-1)  '/ 

25  DATA  YLABEL/'  AXLAL  OER  (mm-1)  '/ 

26  NMX«40 

27  HMY-40 

28  KXX-40 

29  MyX»40 

30  ITT-93 

31  THICX-75.0 

32  0006  writ*(*,*)'  *•*  Welcome  to  p-Zone  *♦•' 

33  writa(*,»)'  ' 

34  write(*,«)'  Give  Location  for  plotting  output' 

35  write!*, •)'  0  ->  Monocrom*  Monitor' 

36  writ*!*,*)'  1  ->  Color  Sonitor  ' 

37  writ*(*,*)'  2  ->  Printer  ' 

38  write!*,*)'  3  ->  HP  Plotter' 

39  read(*,*,*rr"0006)  iout 

40  if (loot. eg. 0) than 

41  ioport-93 

42  30dal*93 

43  elsaif(iout.eq.l)then 

44  ioport-99 

45  modei«99 

46  elseif  (ioot.eg.2)then 

47  ioport«0 

48  modala64 

49  else 

50  ioport-9602 

51  30del«2a 

52  endif 

53  C 

54  C  Set  origin  (craclc  tip)  values 

35  C 

56  IS-0 

57  0050  WRITSf*,*)'  IDTPOT  FILE  ->1  TERMINAL  ->0' 

58  READ(*,  •,iRR-0050)  EM 

59  IF  (IN.. HE. 0)  THEN 
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60 

0056 

WRITEC*,*)'  Giro  HrPOT  FILE  iOOlE' 

61 

READ  (*,  0055 ,  EaR-0056 )  riNP 

62 

OPEN  (7 , 71LE-FIMP,  STjmiS-'QLD' ) 

63 

READ(7,*)NPRF 

64 

DO  0057  I«1,KPRF 

1 

65 

R£AD(7,*)YBAR(I)  ,TOEV(I)  .niAXd) 

I 

66 

READ(7,*)YCDT{I,1)  ,Ya3T(I,2)  ,XCRD(I) 

1 

67 

0057 

CONTINUE 

68 

CLOSE(7) 

69 

GO  TO  0046 

70 

EMDIF 

71 

YMAX(l]-0.0 

72 

YDE7(1)-1.0 

73 

ICaT(l,l)»1.0 

74 

YCnT(l,2)-2.0 

75 

xaiD(i)-o.o 

76 

0005 

MRlTSf*,*)'  GIVE  CHACK  LOCATION  ' 

77 

HEAD  ( * ,  • ,  2RS-0005)  YBAR(  1) 

78 

0010 

WRITE(*,*)'  ALIGN  MEAN  VUJJtS  ?  YES  ->1  NO  ->0' 

79 

READ(*,  »,2RR-0010)IMOVB 

80 

c 

31 

c 

Read  In  remaining  input 

82 

c 

33 

0015 

MRrrE(»,*)'  GIVE  TOTAL  i  OF  PROFILES  TO 

INPUT' 

84 

read  ( • ,  * ,  ERS-O  0 15  )  NPRF 

35 

NPRF-KTRF+l 

86 

0017 

WRITE (*,*)'  GIVE  SEARCH  LIMITS  (lower, 

upper) ' 

37 

HEAD  (*,*,  ESS-0017  )  SL,  SU 

38 

C 

39 

C 

Start  input  loop  here 

90 

c 

91 

DO  0022  1-2, NPRF 

92 

1 

M 

fl 

M 

1 

93 

0025 

WRITE(*,0030)I1 

1 

94 

0030 

FORMAT(//'  GIVE  MEAN,  SOEV,  MAX,  FOR 

',13, 'th  PROFILE') 

1 

95 

READ(*,  *,SRR«002S)yBAH(I) ,  YBEV(I)  ,Y11AX(I) 

\ 

96 

0035 

WRrTS(»,*)'  GIVE  CUTOFF  LIMITS  (lower, 

upper) ' 

2, 

97 

DOKl-O.O 

1 

98 

002*2-0.0 

1 

99 

read  ( » ,  * ,  ERR-003  5)  DOId ,  DD2I2 

1 

100 

C 

1 

101 

IF(DC211.HE.0.0)THSK 

1 

102 

YCDT(I,2)»0CW1 

9 

103 

ELSE 

104 

YCUT(I,2)-SL 

1 

105 

ElfDIF 

1 

106 

c 

1 

107 

I F  ( 002*2  ,  NE .  0 , 0 )  TEEN 

1 

108 

YCaT(  1,1) -001*2 

1 

109 

ELSE 

1 

110 

YCOT(Z,1)-SO 

1 

111 

Eiroi? 

112 

c 

113 

I F  ( IMOVS .  2Q .  1 )  then 

t 

114 

YCUT  ( 1 , 1) -YCOT  ( 1 , 1)  -  YBAR  (I) 

115 

YCaT(I,2)-YCaT(I,2)-YBAR(I) 

116 

Y3AR(I)-0.0 

1 

117 

EinjIF 

1 

113 

c 
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1 

1 

119 

C 

1 

120 

0033 

1 

121 

1 

132 

0022 

123 

124 

0058 

125 

126 

127 

0059 

128 

129 

0055 

130 

131 

132 

1 

133 

1 

134 

1 

135 

0060 

136 

137 

138 

0046 

139 

0070 

140 

141 

142 

143 

C 

144 

c 

145 

c 

146 

147 

1 

148 

1 

149 

1 

ISO 

1 

151 

1 

152 

1 

153 

c 

1 

154 

c 

1 

155 

c 

1 

156 

1 

157 

1 

158 

0083 

1 

159 

1 

160 

161 

1 

162 

1 

163 

1 

164 

1 

165 

2 

166 

3 

167 

0082 

2 

168 

0031 

169 

1 

170 

1 

171 

0090 

172 

1 

173 

2 

174 

3 

175 

0105 

3 

176 

3 

177 

O 

O 
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WSXTZ (*,*)’  GIVE  X-COORDINXTE  FOR  PROFIIX  ' 

REM  ( * ,  ♦ ,  ESR-003  3 )  XCHD  ( I) 

coxniniE 

IN-O 

ViRITEf*,*)  '  STORE  IHPDT  DATA  IH  PILE  XES  ->1  MO  ->0' 

REM  ( * ,  * ,  ERR>aoS8 )  XM 
IF(IH.ME.0)THEM 
MR1TE(*,*)'  GXTB  FILE  MAME' 

REM  (*,  0055 ,  ERR-0059  )  FIHP 
FORMAT (AlO) 

OPEK  (7 ,  FILE-PIMP ,  STATUS-  MEW'  ) 

MRITE(7,*)MPRF 
DO  0060  I-1,HPRF 

»RITE(7,*)FBAR(I)  , FDEVd) , YKAX(I) 

MRITE(7,*)XaiT(I,l)  ,ICnT(I,2)  ,XCRD(I) 

CONTIMUE 

CL0SZ(7) 

EMOIF 

CONTINUE 

WRITBf*,*)'  Give  the  i  of  grid  incresents' 

REM(*-,  *,ERR-0070)  ITEMP 

XLOL-1.0 

YLQL-1.0 

*****«********************«***********************«*****«**«* 

Start  the  big  loop  for  all  coaputations 
*•*«*«**'*«**•****•*•*«****»***•••*•*•****«***•**•***••*****•* 

OPEN  ( 12 ,  FILE-' TABLE  .  DAT'  ,  STATUS-'MEH'  ) 

DO  0080  Il-l, ITEMP 
I?(I1.EQ.1)THEN 
IPHOJ-0 
ELSE 
IPROJ-1 
ENDIF 

Read  in  the  information  for  the  overlap  grid 

WRITS(*,*)'  -  Overlay  Grid  Information - ' 

WRITE(*,»)'  ' 

MRITE(*,*)'  Terminal  ->0  File  ->!' 

REM  ( * , » ,  ERR-0083  )  IFT 
1F(IFT.GT.0)THEN 
MRITE(»,»)'  Give  File  Name' 

REM(*,0055)FIMP 
0PEM{7,FILE-FIMP,STATUS-'0LD' ) 

REM  (7 ,  * )  NTX.  MTY  ,  XMAX 
DO  0081  J-l,NTy 
DO  0082  I-1,NTX 
REM(7,*)F3(I,J) 

CONTINUE 
CLOSE (7) 

ELSE 

WRITS(»,*)'  Give  the  refine  res  Xno.,  Fno.  and  the  Xliait' 

REM  (»,♦,  ERR-009  0 )  NTX ,  NTT ,  XMAX 
DO  0100  I-l.STT 
DO  0110  I-1,NTX 

WRITE(*,*J'  Xno— Tno— ',J,' 

REM  ( ♦ ,  • ,  ERR-0 1 0  5 )  F3  ( I ,  J- ) 

CONTINUE 


Give  bloclc  height  fact  (0->l) 
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2 

178 

0100 

COMniTOE 

1 

179 

0091 

vnirrs(»,»)'  Stor*  Teaplac*  Oiv*  ->!' 

1 

180 

READ ( * , • , ERBf009  1 )  IN 

1 

181 

I7(IN.NE.0)THZK 

1 

182 

WRITS(»,*)'  GIVE  FILE  NAME' 

1 

183 

READ (*, 0055) FINP 

1 

184 

OI>EN(7  ,FILE-nMP,  STATDS-'NEW'  ) 

1 

ISS 

WRITE  ( 7 ,  • )  NT3t ,  NTY ,  XMAX 

1 

186 

DO  0092  J-l.MTT 

2 

187 

DO  0093  I-1,NTX 

3 

188 

0093 

WRITE(7,*)F2(I,J) 

2 

189 

0092 

CONnNUE 

1 

190 

CL0SS(7) 

1 

191 

EHDIF 

1 

192 

ENDIF 

1 

193 

C 

1 

194 

c 

1....  Cooput*  the  XP,  YP,  and  the  ZP  arrays 

1 

195 

c 

1 

196 

YDMAX-0.0 

1 

197 

DO  0125  I-1,HPRF 

2 

198 

IP(YDEV(I)  .GT.YDMAX)THEN 

2 

199 

YDMAX-TOEV(I) 

2 

200 

YBMA3C-mR(I) 

2 

201 

TL-fBARd)  - (3 . 0*YDEV(I) ) 

2 

202 

'ni-yBAR(i)+(3.o»yDEV(i) ) 

2 

203 

ENDIF 

2 

204 

0125 

CONTINnE 

1 

205 

DELI-dn-lfL)/20.Q 

1 

206 

XL-XCaOd) 

1 

207 

Xa-XCRD(NPRr) 

1 

208 

0126 

WRITS(*,*)'  XL»',m. 'YL-',YL.'3nj-',Xir, 'XU-', 

1 

209 

»HITEd«*)'  TO  CHANGE  DEFAULTS  GIVE  ->1' 

1 

210 

READ(*, •,ERR-0126) IC 

1 

211 

IFdC.NE.O)THEK 

1 

212 

WRITBf*,*)'  GIVE  XL, XL, X0, XU' 

1 

213 

READ  ( » ,  • ,  SRR-0 12  6 )  XL ,  XL,  3CU,  XU 

1 

214 

ENDIF 

1 

215 

TDX-  (XMAX-XL)  /FLOAT  (NTX) 

1 

216 

TDX«  (XU-XL)  /FLOAT  (NTX) 

1 

217 

NP-O 

1 

218 

C 

1 

219 

DO  0120  I-1,NPRF 

2 

220 

XVAL-XCRDd) 

2 

221 

IF  (3C7AL.Lr.  XKAX)  THEN 

2 

222 

DO  0130  J-1,20 

3 

223 

NP-IHM-l 

3 

224 

XVAL-XLv  (DELI*  (FLOAT  ( J-1)  )  ) 

3 

225 

SX-(YVAL-XBARd)  )/XDEV(r) 

3 

226 

EX— Q.3*(XX*EX) 

3 

227 

IF(SX.LT.-15.)THEN 

3 

228 

Hl-0.0 

3 

229 

ELSE 

3 

230 

31-EXP  (EX)  *XMAX(I) 

3 

231 

ENDIF 

3 

232 

C 

3 

233 

c 

Ccapct*  the  proper  teoclate  Value 

3 

234 

c 

3 

235 

DO  0160  J1-1,NTX 

4 

236 

XTVM-XL-t- (TDX*  ( FLOAT (Jl-l)  )  ) 
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4 

237 

WVP-YIrt-  (TDY*  (FLOAT  ( Jl) ) ) 

4 

238 

DO  0170 

5 

239 

XTVM-XI<»(TDX*  ( FLOAT  (IIl-l)  )  ) 

5 

240 

XTVP-XIrt-(TDX*(FLOAT(IIl)  )  ) 

5 

241 

IF(XVAL.GS.XTTO-AMO.X7AL.LE.XT7P)ICHlC-Il 

5 

242 

0170 

COOTIMUS 

4 

243 

IF  {TVAL.GE.  rrVM.  AHD  .  TVAL.  LE .  XTVP)  JCHK-Jl 

4 

244 

0160 

COHTZMnB 

3 

245 

FCT-PZ(ICHK,JCHIC) 

3 

246 

2P(HP)”ai*FCT 

3 

247 

XP(HP)-X7AL 

3 

248 

rP(lIP)-lfVAL 

3 

249 

0130 

CONTIMnE 

2 

250 

ELSE 

2 

251 

DO  0140  J«l,20 

3 

252 

NP««lfP4-l 

3 

253 

yVAL»’fIrt-(DELX*(FLQAT(J-l)  )  ) 

3 

254 

2P(NP)-0.0 

3 

255 

XP(HP)-XMAX 

3 

256 

YP(JIP)-mL 

3 

257 

0140 

CONTISDE 

2 

258 

ENDLF 

2 

259 

0120 

CONTINUE 

1 

260 

DO  0200  I»l,!n« 

2 

261 

DO  0200  J-l.JWy 

3 

262 

2(1, J) -0.0 

3 

263 

0200 

CONTlinjE 

1 

264 

XST-0.0 

265 

FST-O.O 

i 

266 

C 

YST-TBHAX-  (3 . 0*YDMAX) 

1 

267 

0 

NYST-IirT(  (YST/50.0)-^.5) 

1 

268 

c 

YST-FL0AT(}reST*5O) 

1 

269 

DELEA-IOO.O 

270 

c 

I 

271 

XLEHG«XCSD(NP8F) /lOO .  0 

1 

272 

YLEHG-5 .  O^YDMAX/ 100.0 

1 

273 

FACT-8. 0/XLEMG 

1 

274 

c 

MSM-l 

i 

275 

CAY-5. 

1 

276 

KDtV-2 

1 

277 

IOIR-3 

I 

278 

IEDGZ-0 

1 

279 

IFPAME-l 

1 

280 

2LOH-1.0E35 

1 

281 

ICDT-1 

5 

282 

ITRIM-1 

1 

283 

MlUfG-10 

284 

XUPR  -  XLEWG  XLOL 

285 

'TOPR  -  YLZKG  +  YLOL 

286 

DX- (XD-XL)/FLOAT  (NXX-1) 

287 

DY-  ( YU-YL)  /FLOAT  (MYY-l) 

1 

288 

WRn2(*,»)'  G«n«rating  the  Grid' 

1 

239 

CALL  2GRrD(2,SNX,jnrY,.'nCX,.YYY,XL,YL,XU,YTJ,XP,YP,ZP,NP,CAY,NRNG, 

1 

290 

1  2PiJ,.xiirr) 

1 

291 

c 

TOitE(»,»)  '  Smoothing  the  Grid' 

L 

292 

c 

CALL  zs}trH(z,SHX,.'nrY..'ncx.!rrY.MSM) 

1 

293 

c 

Compute  the  Volume,  and  the  centriod  of  the  P-2ono 

1 

294 

c 

1 

295 

c 
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1  296  WRITE (»,»)'  Computing  tbs  Volums  emd  Cantroid' 

1  297  VOL(I1)-0.0 

1  298  X70L(ri)-0.0 

1  299  YV0L(I1)»0.0 

1  300  R1(I1)-0.0 

I  301  ZK&X>0.0 

1  302  AREJV>0X*OT 

1  303  C 

1  304  DO  0220  T-1,MYY 

2  305  TTAL-n*  (DX*  (FLOAT  (J-l))) 

2  306  DO  0230 

3  307  I7(Z(I,J)  .LT.0.0)Z(r,J5-0.0 

3  308  IP{Z{I,J)  .GT.35.0)2(r,J)-0.0 

3  309  IF(Z(l,(J+l)).tr.0. 0)2(1, (J+1))»0.0 

3  310  IP(Z{I,{J+l)).CT.35.0)Z(I,(J+l))-0.0 

3  311  I7(Z((I+l),J).IT.O.O)2((I+l),J)-0.0 

3  312  IF(Z((I+1)  ,J)  .ST.3S.0)2((1+1)  ,J)-0.0 

3  313  IP{Z((I+1),(J+1))  .Lr.0.0)2((l+l),(j+l))-0.0 

3  314  IP(Z((I+1),(J+1))  .GT.35.0)2((I+l),{J+l))-0.0 

3  315  XVAL-XLf(DX*(FLOAT(X-l))) 

3  316  Z1-Z(I,J) 

3  317  Z2-Z((I+1)  ,J) 

3  318  23-Z(I,  (J+D) 

3  319  24-Z((I+l)  ,  (J+1)  ) 

3  320  C 

3  321  C  Compute  tb*  Volume,  and  Centroid 

3  322  C 

3  323  HGHr»0.25*(Zl+Z2+23+24) 

3  324  IF(HGHT.LZ. 0.01)00  TO  0230 

3  325  VOL(Il)-VOL(Il)  +  (ABEA*HGHT) 

3  326  X70L(I1)-XTOL(I1)  +  (3CVAL+(DX/2.0))*(AREA*HGHT) 

3  327  XVOL(I1)-XVOL<I1)  +  CXVAL+(OY/2.0))*(AR2A»HGHT) 

3  328  0230  COKTCTOZ 

2  329  0220  CONTHniZ 

1  330  XVOL(ri)-XVOL(Il)/C7OL{Il)*10.) 

1  331  TTOL(11)-XVOL(I1)/('70L(I1)*10.) 

1  332  VOL(I1)-VOL(I1)/1000. 

1  333  C 

1  334  write(*,*)'  II-',  II 

1  335  17(11. GT-DTHEM 

1  336  0ELXO10.0*(XV0L(Il-l)-XVDL(ll)) 

1  337  IXC-(DELXC/{Xa-XL))*NXX+l 

1  338  MRITZ(»,»)'  Shifted  by  ',IXC, '  Boxes' 

1  339  DO  0236  J-l,jnrjf 

2  340  DO  0237  I-DCC,M3CX 

3  341  IO-I-XXC+1 

3  342  Z01-Z(I0,J) 

3  343  Z02-Z((I0+1) ,J) 

3  344  Z03-Z(I0,  (J+1)  ) 

3  345  Z04-Z((IO+1)  ,  (J+1)  ) 

3  346  2m-Z(I,J) 

3  347  ZM2-Z((I+1)  ,J) 

3  348  Z}f3»Z(I,  (J+D) 

3  349  ZN4»Z(  (I+l)  ,  (J+1)  ) 

3  350  HOU>-0.2S»(ZOl+ZO2+ZO3+ZO4) 

3  351  HMEM-0.2S*f2Ml+Zir2+ZN3+Zir4) 

3  352  DELil-A3S  (HOLO-HMZW) 

3  353  .R1(I1)-R1(I1)+0ELH 

3  354  0237  COHTIMnS 
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2  355  0236  CONTINCE 

1  356  Rl(ll)«(ia(Il)*AREA)/DELXC 

1  357  ELSE 

1  358  R1(I1)>0.0 

1  359  ENDir 

1  360  Rl(ri)-Rl(ri)/100.0 

1  361  C 

1  362  VnilTB{*,*)'  ' 

1  363  LSD  VolUB®  «  ' ,  VOL(Il) , 'a«3 ' 

1  364  write!*,*)'  ' 

1  365  WRITE(*,*)'  lean  •  ',XVOL(ll) , 'am  Ecan  -  ' ,  YVOL(Il) , 'an' 

1  366  WRITE(*,*)'  ' 

1  367  WRITE(*,*)'  R1  «',Rl(Il),'aB2' 

1  368  WRITE(*,*)'  ' 

1  369  WRrrE(12,*)'  ' 

1  370  WRITE(12,*)'  LSD  Voluaa  -  '  ,rroL(lX) , '-003' 

1  371  WHrrE(12,*)'  ' 

1  372  WRITE(12,*)'  Xcan  -  '  ,}CVOL(Il) , 'am  Yean  -  ' ,  YVOL(Il) , 'aa' 

1  373  WRITB(12,*)'  ' 

1  374  WR1TE(12,*)'  R1-' ,R1(I1) , 'aa2' 

1  375  WH1TE(12,*)'  ' 

1  376  C 

1  377  0280  WRITB(*,*)'  ' 

1  378  white!*,*)'  3-d  PLOT' 

1  379  WHITE(*,*)'  No  Plot  ->  0' 

1  380  WRITE(*,*)'  For  3-0  Plot  ->  1' 

1  381  WH1TE(*,*)'  ' 

1  382  HEAD(*,*,ERS-0280)IFL 

1  383  IF(IPL.EQ.0)(30  TO  0080 

1  384  0250  WHITE(*,*)'  Give  Horia,  and  Vert  Angles' 

1  385  READ(*,*,ERIM2S0)  PHI, THETA. 

1  386  CALL  PLOTS (0,IOPORr, MODEL) 

1  387  CALL  COLOR(0,IERR) 

1  388  CALL  COKPLZ 

I  389  CALL  FACTOH(FACT) 

1  390  CALL  HESHS(Z,  MNX.SHY,  MXX,  HYY,  PHI,  THETA,  XLOL,  YLOL, 

1  391  1  XDPR,  YDPR,  NDIV,  lEDGE,  IDIR,  IPROJ,  IFRAME,  ZLOW, 

1  392  2  ICOT,  ITRIK,  MASK,  VERTEX) 

1  393  C 

1  394  C  Provide  labeling 

1  395  C 

1  396  CALL  C7T(0.,0.,0.,XR,YR,XL,YL,DX,DY) 

1  397  Xl-XR 

1  398  Yl-YR 

1  399  XA-XCRD(NPRF) 

1  400  CALL  C7T(XA,0.,0.,XR,YR,XL,YL,DX,DY) 

1  401  X2-XR 

1  402  Y2-YR 

1  403  ■'7ANG-ATAN{(Yl-Y2)/(:a-X2))*(180/3. 14159) 

1  404  WRITS(*,»)'  VERT  AHG-', VANG, '  degraas' 

1  405  I?(VAKG.LT.O)THEH 

1  406  XA-XCRD(NPHF)-25.0 

1  407  YA-YD+SO. 

1  408  XH— 60, 

1  409  YN-YBARd) 

1  410  ELSE 

1  411  XA-25,0 

1  412  YA-YL-50. 

1  413  XN—200. 
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1 

7  Hicrosoft  FORTH, 

1 

414 

inr-YBAR(l) 

1 

415 

EMDIF 

1 

416 

CALL  CVT(X!»,inf,0.,XR,VH,XL,YL,DX,DY) 

1 

417 

CALL  SYMB0L(XR,YIl,.12S,'I(0TCB',VAH6,5) 

1 

418 

CALL  C7T(XA,?A,0.,XR,YR,XL,YL,DX,DY) 

I 

419 

CALL  SYKBOL(XR,YS,  .125, 'CBiaTHFEREHTXAL  OIR',VANC,: 

1 

420 

CALL  PLOT(0. 0,0. 0,999) 

1 

421 

0270 

WRITE(*,*)'  ' 

I 

422 

CONTOOR  21AP' 

1 

423 

WRrrE(»,»)'  Mo  Plot  ->  0' 

1 

424 

WR1TB(*,*)'  Contour  Plot  ->  1' 

1 

425 

WRITER*,*)'  ' 

1 

426 

READ  ( * ,  * ,  ERR-0270  )  XPL 

1 

427 

i£(IPL.eq.0)go  to  0080 

1 

428 

0260 

CONTINUE 

1 

429 

C 

1 

430 

c 

Draw  th«  contour  nap  n«xt. 

1 

431 

c 

1 

432 

WRns(»,»)'  ' 

1 

433 

0290 

HRITE(*,*)'  Tha  max  haight  is  ',ZlfAX 

1 

434 

1 

435 

WRITE (*,*)'  Enter  Hin  and  Kax  for  Contour  range' 

1 

436 

R£A0(*,  *,ERRi^290)  ZMM,ZMX 

1 

437 

WR3:tB(*,*)'  Enter  No.  Cntrs,  Ho.  par  Label,  Istart 

1 

438 

READ  (*,*,  ZRR-029O)  NLEV,  SLAB,  ICX 

1 

439 

2IHO  ( ZHX-ZMN) /FLOAT  (NLE7) 

1 

440 

DO  0300  I-1,HLEV 

2 

441 

ZLE7(I)«EMN+ZIHC*FL0AT(I-1) 

2 

442 

IF(iaC.2Q.HLAB)THEN 

2 

443 

LWCT(l)-2 

2 

444 

LDK(1]— 1 

2 

445 

ICK-1 

2 

446 

ELSE 

2 

447 

LWGT(I)-1 

2 

448 

LDIG(I)«-2 

2 

449 

ICX-lCS+1 

2 

450 

HNDI7 

2 

451 

0300 

CONTINUE 

1 

452 

NDIV-4 

1 

453 

NAR04 

454 

ZMAZLN^AKAXl  (XLEHG,  YLENG) 

1 

455 

HGT  »  ZHAXI2I/80. 

1 

456 

CALL  PLOTS (0,IOPORT,XOOEL) 

1 

457 

CALL  FACrOR(FACT) 

458 

C 

1 

459 

c 

Scale  the  X  and  X  axis  of  tbe  plot 

1 

460 

c 

1 

461 

c 

1 

462 

c 

CALL  SCALE(XP,XLE;(G,HP,  1) 

1 

463 

CALL  SCAL2(YP, YLENG, HP,  1) 

1 

464 

c 

1 

465 

c 

1 

466 

CALL  ZCSEG<Z,NHX,HNY,HXX,Hiry,XLOL,!rLOL,XDPR,YUPR,; 

1 

467 

1  rjIGT,NI.EV,HGT,HDIV,HARC) 

1 

468 

CALL  NEIIPEH(O) 

1 

469 

CALL  3TAXIS(.15,  .15,  .15,  .15.-1) 

1 

470 

CALL  AXIS{XLOL,YLOL,XLAflEB,-30,-XLZ»G,0.0, 

1 

471 

1  XST,  DELTA) 

1 

472 

CALL  AXIS (XLOL,YLOL,YLABEB, 30, -YLENG,  90.0, 
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CALL  AXIS  (XML, TOPH,'  '  ,0,-XLEHG,  00.0, 

1  XST, DELTA) 

CALL  AXIS (XDPa,IML,'  ' , -1,-YXIWG, 90.0, 

1  1ST, DELIA) 

C 

C  Begin  graphics  ooCpat. 

C 

CALL  FLOTCO. 0,0. 0,999) 

0080  COHTIMQZ 
CMSE(12) 

C 

C  write  oat  the  centroid  date  to  file 

c 

OPEK(8 ,  FILS-'TAB.ODT' ,STATDS-*MEW' ) 

WRITE (8, 04 10) 

0410  FORMAT('  DAMAGE  ZOME  DEVEMPMEHT  TABLE',// 

1  '  Pile  Voltiae  Xcen  Teen' ,/ 

2  '  (ma)  (ae)  (am)') 

DO  0400  I-1,ITEMP 

IP(1.EQ.ITEMP)THEM 

J-1 

ELSE 

J-I+1 

EKDIP 

WHITE(8,0420)J,7OL(J)  ,X70L(J)  ,  TVOL(J) 

0420  F0BMAI(I5,3G1S.3) 

0400  CONTINUE 
CLaSE(8) 

999  CONTIMUB 
EMD 


Haas 

Type 

Offset 

?  Claes 

ABS 

AKAXl 

AREA 

REAL 

1424 

mTRIMSIC 

ISTRIjrSIC 

ATAM 

CAT 

REAL 

1382 

XSTRIMSIC 

DELS 

REAL 

1520 

DELIA 

REAL 

1366 

OELXC 

REAL 

1460 

DELT 

REAL 

U60 

DOMl 

REAL 

1152 

D0H2 

REAL 

1156 

DX 

REAL 

1412 

DT 

REAL 

1416 

EX 

REAL 

1298 

EXP 

PACT 

REAL 

1378 

IMTRIMSIC 

PC7 

REAL 

1342 

PILEHM 

CHAR*  10 

PIMP 

CHAR* 10 

1058 

FLOAT 

FZ 

REAL 

11300 

XMTRIMSIC 
/WORIO.  / 

HGHT 

REAL 

1456 
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HOT 

REAL 

HI 

REAL 

HNEW 

REAL 

HOLD 

REAL 

I 

1STEGE8*2 

11 

IjrTEGER*2 

IC 

IirrEGEIl*2 

ICHK 

IMTSGEReR 

ICX 

integer*! 

ICOT 

INTEGER*! 

1015 

INTEGER*! 

IHDGE 

INTEGER*! 

ISUl 

INTEGER*! 

IPHAKE 

INTEGER*! 

irr 

INTEGER*! 

III 

INTEGER*! 

IMOVE 

INTEGER*! 

IH 

INTEGER*! 

10 

INTEGER*! 

lOPOBT 

INTEGER*! 

lOOT 

INTEGER*! 

IPL 

INTEGER*! 

IFROJ 

INTEGER*! 

ITEKP 

INTEGER*! 

ITRIM 

INTEGER*! 

ITT 

INTEGER*! 

IXC 

INTEGER*! 

J 

INTEGER*! 

J1 

INTEGER*! 

JcaK 

INTEGER*! 

KMXT 

INTEGER*! 

LOIS 

INTEGER*! 

LHGT 

INTEGER*! 

iOSK 

INTEGER*! 

MODEL 

INTEGER*! 

HARC 

INTEGER*! 

NDIV 

INTEGER*! 

HIAB 

INTEGER*! 

KL2V 

INTEGER*! 

Nine 

INTEGER*! 

mn 

INTEGER*! 

HP 

INTEGER*! 

NPRF 

INTEGER*! 

HRHG 

INTEGER*! 

KTX 

INTEGER*! 

HTY 

INTEGER*! 

HXX 

INTEGER*! 

HYY 

INTEGER*! 

PHI 

-HEAL 

HI 

31EAL»8 

SL 

•HEAL 

SD 

REAL 

TDX 

REAL 

TOY 

REAL 

THETA 

REAL 

THICX 

REAL 

7AHG 

REAL 

■rSSTEX 

REAL 

VOL 

REAL»8 

1610 

1302 

1S16 

1512 

1070 

1094 

1272 

1338 

1592 

1398 

1388 

1390 

1534 

1392 

1190 

1322 

1078 

1056 

1478 

1052 

1050 

1524 

1188 

1172 

1400 

1044 

1464 

1200 

1306 

1340 

240  /WORia  / 

U140  /W0RK2  / 

13220  /W0RK2  / 

1140  /WORK2  / 

1054 
1604 
1386 
1590 
1588 
1036 
1038 
1282 
1068 
1402 
1192 
1194 
1040 
1042 
1526 
796 
1030 
1084 
1274 
1278 
1530 
1046 

1564 

14500  /WORKl  / 
16 
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XI 

REAL 

1544 

X2 

REAL 

1556 

XA 

REAL 

1552 

XCSD 

REAL 

120 

/WOHKl  / 

XL 

REAL 

1264 

XLAB£B 

CSAR*I 

766 

XLABEL 

CHAR*30 

766 

XLENC 

REAL 

1370 

XLOL 

REAL 

1174 

xtox 

REAL 

1196 

XM 

REAL 

1572 

XP 

REAL 

6400 

/TJOHKl  / 

XR 

REAL 

1536 

XST 

REAL 

1358 

XTVM 

REAL 

1330 

XT7P 

REAL 

1334 

XO 

REAL 

1268 

XtlPR 

REAL 

1404 

X7AL 

REAL 

1290 

XVOL 

REAL*8 

256 

XI 

REAL 

1548 

X2 

REAL 

1560 

YA 

REAL 

1568 

XSAR 

REAL 

14724 

/W3RE1  / 

XSMAX 

REAL 

1248 

Ycnr 

REAL 

14964 

/WORKl  / 

YDEV 

REAL 

14844 

/WORK!  / 

YDMAX 

REAL 

1238 

YL 

REAL 

1252 

YLABEB 

1  CEAR*! 

736 

YLABEL  CHAR*30 

736 

YLEMC 

REAL 

1374 

YLOt 

REAL 

1173 

YMAX 

REAL 

0 

/WORE2  / 

'nt 

REAL 

1576 

YP 

REAL 

3200 

/WORK!  / 

YR 

REAL 

1540 

YST 

REAL 

1362 

YT7K 

REAL 

1314 

YTVp 

REAL 

1318 

Yir 

REAL 

1256 

YUPR 

BEAL 

1403 

YVAL 

REAL 

1294 

YVOL 

R£AL*8 

496 

Z 

REAL 

0 

/WORKl  / 

Z1 

REAL 

1440 

Z2 

REAL 

1444 

Z3 

REAL 

1448 

Z6 

REAL 

1452 

ZIKC 

REAL 

1594 

ZLE7 

REAL 

14564 

/WOREl  / 

ZLQW 

REAL 

1394 

ZMAX 

REAL 

1420 

ZIIAXIM  REAL 

1606 

ZMH 

REAL 

1580 

ZMX 

REAL 

1584 

ZRl 

REAL 

1496 

ZMl 

REAL 

1500 

ZR3 

REAL 

1504 

254 
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ZM4 

REAL 

1508 

ZOl 

REAL 

1480 

Z02 

REAL 

1484 

Z03 

REAL 

1488 

Z04 

REAL 

1492 

ZP 

REAL 

10000 

ZPU 

REAL 

12100 

/WORKL  / 
/WQIUa  / 
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507  C 

508  C 

509  snBSocrriMS  cvt(x.y,z,  xh,  yr,xl,xi.,dx,dy) 

510  C. ..  TKAHSLXTB  HORLO  COORDZMATES  TO  SSIO  DNTTS. 

511  XP  -  1.0  +  (X  -  XL)  /DX 

512  XP  -  1.0  +  (t  -  YL)  /DX 

513  C.  ..  CONVEKT  HORLO  COOROtMATES  TO  PLOTTER  COOROXMATES. 

514  CALL  P302D(XP,XP,2,  XR,  XR) 

515  RETORK 

516  EKD 


Hans 

Typs 

DX 

REAL 

OX 

REAL 

X 

REAL 

XL 

REAL 

XP 

REAL 

XR 

REAL 

X 

REAL 

XL 

REAL 

XP 

REAL 

XR 

REAL 

it 

REAL 

Offsat  P  Class 

28  * 

32  * 

0  • 

20  • 

1812 
12  * 

4  • 

24  • 

1816 
16  * 

3  » 


517  C 

Nans  Typs  Sirs  Class 


AXIS 

COLOR 

COMPLY 

CVT 

FACTOR 

HESHS 

XEWPEM 

?3D20 

PLOT 

PLOTS 

P2CKE 

STAXIS 

SYMBOL 

HORXl 

HORK2 

ZCSZG 

ZGRZO 


SDBROOTtNE 
SOBROOTIKE 
SUBROOTINE 
SOBRODTIME 
SUBROOTZNE 
SUBHOOnUE 
SUBROOTZ2<E 
SUBRODTIME 
SUBROOTIME 
SUBROUTIME 
PROGRAM 
SUBROUTINE 
SUBROUTINE 
15204  COMMON 
13300  COMMON 

SUBROUTINE 

SUBROUTINE 
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0  Lina#  l 
Pass  One 
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0  Lin«#  1  7  Microaoft  FORTRAM77  V3.20  02/84 

1  $Stara9a:  2 

2  SDataug 

3  Prograa  Snargy 

4  C'**********************'*********************************************** 

5  c*****  This  progru  is  daislgnad  to  coaputa  tha  naar  and  far  field  * 

S  c*****  enargy  ralaasa  ratas  using  a  complex  potential  formulation.  * 

7  c-***-**  Tha  near  field  is  evaluated  via  the  stress  intensity  factors  * 

8  a*****  and  tha  far  field  is  computed  through  a  numerical  integration* 

9  c********************************************************************* 

10  C 

11  Complexes  z, zst,znd, zinc, zc,z01(200) ,202(200) , 

12  1  a(200)  ,duml,dta,dun2,zs,za,d2,an,Ktot,ia2,Jc,Jcl,ft3 

13  Raal*4  Ic,sig(30,30,3)  ,aaod,na,zp(30,30)  ,zlev(50)  ,vartex(lS) , 

14  1  Jnear,Jfar,Lc 

Xntegar*2  Idig(SO)  ,lwgt(S0)  ,masX(3000) 

Id  Charact«r*10  afil 

17  Common  /mat/  eaod,gmod,nu,Ic 

18  Common  /dam/z01,z02,a,iz 

19  Common  /crach/  c 

20  Common/ remote/ slgyy,slgxy 

21  Data  nnx,nny,xlo«,ylow  /30, 30, 1.0, 1.0/ 

22  c 

23  pi-3.141592654 

24  write(*,*)'  Cive  material  properties' 

25  0005  write(*,*)'  cnod,nu,  0->  pi.  stress  l->  pi.  strain' 

26  read(*,  •,err-0005)  emod,nu,ipl 

27  if (ipl.eq.a)then 

28  )c-(3.0-mi)/(1.0+nu) 

29  else 

30  Ic-3.a-4.0*na 

31  andif 

32  gmod-emod/(2.0*(1.0+nu) ) 

33  0010  wrlte(*,*)'  Oiva  main  crack  length' 

34  read(*,*,arr-00l0)c 

35  0007  vrite(*,*)'  Give  Centroid  Distance  (mu)' 

36  raad(*,*,err>0007)xcen 

37  c-C4-xcen 

38  write(*,»)'  ' 

39  write(*,*)'  Give  File  Kama  for  Microcrack  Data' 

40  read (*,0011) afil 

41  0011  farmat(aia) 

42  C 

43  opan(5,file-afil,atatus”'old') 

44  writa(*,»)'  ' 

45  write(*,»)'  -  Reading  the  Microcrack  Data  -  ' 

46  c 

47  c  nmic-1  of  microcracks  ndis-#  of  dislocations/micro 

48  c 

49  read(5,*)nmic,.^dis 

50  i£(ndis.la.0.or.ndis.gt.l0)ndi3-l 

51  ic-0 

52  dum-caplx(0,  1) 

53  do  0012  l-l,nmic 

1  54  c 

1  55  c  Next  read  coords  of  the  microcrack  (xs,ys)  to  (xe.ye) 

1  56  c 


1 

1 


57 

58 

59  c 


vrrita(*,.)'  currently  reading  the  ',i,'th  data' 
raad{5,*)xs,vs,xe,ye 


257 


□  Line#  1 
1  60 

1  61 

1  62  C 

1  63 

1  64 

1  65 

1  66 

1  67 

1  68 

I  69 

1  70 

1  71 

1  72  c 

1  73  C 

1  74  C 

1  75 

1  76 

1  77 

1  78 

1  79 

1  80  C 

1  31 

2  82 

2  83 

2  34 

2  85 

2  86 

2  87 

2  38 

2  39 

2  90 

2  91 

2  92 

1  93 

94 

95  c 

96  C 

97  C 

98 

99 
100 

1  101 

1  102 

1  103 

1  104 

1  lOS 

1  106 

1  107 

1  108 

1  109 

1  110 

1  111 

1  112 

1  113 

1  114 

115 

1  116 

113 
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xe-xe-xcen 

xs>xs-xcen 


den-xe-X3 

if  Cden.lt.  0.000001)  then 
theta>pi/2.0 

else 

theta«atan(  (ye-ys)/den) 
endif 

xd-cos (theta) 
yd-3in( theta) 
duml-coiplx  ( xd ,  yd ) 

Give  the  CSD,  and  the  COD' 

read(5,*)bl,b2 
bl-bl/float(adis) 
b2>b2/f  loat (ndis ) 
xdis-(xe-xs)/  (2. 0*float(ndis4-l) ) 
ydis-(ye-ys)/(2.0*float(ndis+l) ) 

do  0013  j-l.ndis 
ic“ic+l 

xsc«xa+(xdis»float( j ) ) 
ysc^s+  (ydis*f loat  ( j ) ) 
xec-xe-(xdis*;ioat{ j) ) 
yec^e-  (ydis»float  ( j ) ) 

2 0 1 ( ic ) >caplx ( xsc ,  ysc ) 
z02  ( io)  “caiplx(xec,  yec) 
a  ( ic)  “caiplx  (bl ,  b2 ) 
a(ic)-(gmod/(pi*(Ic+l) ) )  »duBl*a(ic) 
aHo)-a(ic)/dnB 
0013  continue 
0012  continue 
close (5) 


Start  conputation  of  the  Hear  Field  Snergy  Release  Rates 


writeC*,*)'  Total  #  dipoles  “',ic 
Rtot^caolx ( 0 . 0 , 0 . 0 ) 

□o  0030'i-l,ic 
eui«a  ( i) 

2e-201(i) 

dUD-KMqrtC  (2eTC)/2a) 
dum— 1. 0*an«  (real  (dUB) -1. 0) 
dujB2>csgrt(coajg(2e) ) 

duii2''  2 . 3  *duB2  *dUB2  *daB2  ^csgrt  (conjg(ze)4c) 
dual»(conjg(4n)  *al9ag(ze)  »c)/dua2 
dua2acaalx ( 0 . 3 , 1 . 0 ) 
duml»>dual  *dusU 

R12— 2.0*sqrt;  (2»9i)/o)  *(duo+duml) 
an— 1.0*a(i) 

2e-z02(i) 

dUB-csqrt(  {zeH:)/2o) 
duB— l.o»an»(real  (dUB)  -1.0) 
duB2«csqrt(conjg(2e) ) 


auB2-2 . 0.dua2*dun2«duB2*csqrt  (conjg( 

d^l-(C3n3g(4n)  .aiaag(ze)  *c^dUB2^^' 
dUB2»caplx(0.3, 1.0)  " 
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1 

119 

dtiiBl*duml  *d\im2 

1 

120 

K12”K12-(2.0*sqrt(  (2*pi)/c)  « (duaH-duml) ) 

1 

121 

Ktot-Ktot-t-!a2 

1 

122 

0030 

continue 

123 

c 

124 

c 

Convert  Stress  Intensity  Factors  to 

Energy  Release  Rates 

125 

c 

126 

0038 

writa(*,*)'  Give  Renote  Loading  Stress' 

127 

write(*,*)'  sig-yy,  sig-xy  ' 

123 

read(*,  •,err“0038)  sigyy.sigxy 

129 

rXI-raal (Ktot) 

130 

rXII— 1 . 0»aimag  (Ktot) 

131 

rKI”rKI+(sigyy*aqrt(pt*0.S*c) ) 

132 

if (rKI.lt. 0.0) rKI-0 . 0 

133 

rKII-rKII+(sigry«sqrt(pi»O.S*c) ) 

134 

write(»,»)'  The  stress  intensity 

factors  are  : ' 

135 

write(*,»)'  73  «',rKI 

136 

write(*,*)'  KII  -',rKII 

137 

Jnear-  ( rKI*rKI)  +  ( rJai*rXII) 

133 

if (ipl.gt.O)then 

139 

Jneaz->Jnear/ZBOd 

140 

else 

141 

Jnear-  ( ( 1 .  o-nu*nu)  /£mod)  *Jnear 

142 

endif 

143 

writa(*,*)'  The  near  field  is  ' 

144 

vrita (•,*)'  Jnear-' , Jnear 

145 

c 

146 

c 

Compute  the  Far  Field  Energy  Release 

Rates  via  3udians)cy 

:  .7 

c 

and  Rica  Formulation 

148 

c 

149 

0035 

vrite(*,*)'  Give  Contour  Size' 

150 

vrite(»,«)'  Length, Width' 

151 

read(», *,err-0035)  Lc,Wc 

152 

write(*,*)'  ' 

153 

c 

154 

c 

lategMte  over  a  rectilinear  path 

155 

c 

156 

Jc-capir ( 0 . 0 , 0 . 0 ) 

157 

Do  0040  i«l,S 

1 

158 

if(i.eq.l)then 

1 

159 

al— 0.2*c 

1 

160 

b— 0.5*Wc 

L 

161 

;3C-caplr(al,  0. 0) 

1 

162 

z nd-cmplx ( a 1 , b ) 

163 

writ9(*,»)'  ' 

164 

vrite (♦,»)'  Currently  Integrating 

over  1st 

part' 

165 

elseif  ^.eq.2)  then 

1 

166 

Jst”Caplx(al,i) 

*67 

:nd-caplx(Lc,b) 

1 

163 

vrit«( •, *) '  ' 

1 

169 

vrite(*,*)'  Currently  Integrating 

over  2nd 

part' 

L 

170 

elseif ( i. eg. 3)  then 

1 

171 

zsc-caplx(Lc,b) 

1 

172 

b-0.3*wc 

1 

173 

;nd»caplx(Lc,b) 

- 

174 

vrite(  ’ 

- 

175 

vrite(»,«)'  Currently  r.ntagrating 

over  3rd 

part' 

• 

17  $ 

alsei;(i.ag.4)then 

- 

177 

isc-caDlx(Lc,b) 
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1 

178 

2nd>cap.\x(al,b) 

1 

179 

writa(*,*)'  ' 

1 

180 

writs(»,*)'  Currently  Integrating  over  4th  ] 

1 

181 

else 

1 

182 

zst>csplx(al,b) 

1 

183 

znd><Bplx ( al , 0 . 0 ) 

1 

184 

write{*,*)'  ' 

1 

185 

write(*,*j'  Currently  Integrating  over  5th  j 

1 

186 

endif 

1 

187 

C 

1 

188 

c 

1 

189 

call  Qromb(ic,2st,znd,J'cl} 

1 

190 

Jc-Jc+Jcl 

1 

191 

0040 

continue 

192 

c 

193 

c 

Adding  on  extra  terms  caused  by  the  open  ended 

194 

c 

path  should  be  done  at  this  point. 

195 

c 

196 

JIar-aimag ( Jc) 

197 

if ( Ipl . eg.  0 ) then 

198 

j  far” ( 2 . 0/Emod)  »Jf ar 

199 

else 

200 

Jf  ar-2 .  o«  ( ( 1 . 0-nu*nu)  /Smod)  *jf  ar 

201 

endif 

202 

open (5,  file-' j  -  out' , status- 'new') 

203 

write(5,*)'  Craclc  Input  File:' 

204 

writers, 0050)mf*.l 

205 

0050 

format ( 15x, alO) 

206 

write(5,*)'  Craclc  Length  ”',c 

207 

write(5,»)'  ' 

208 

writa(5,*i'  Contour  Dimensions:' 

209 

write(5,*)'  Lc-',Lo,'  Wc»',Wc 

210 

write(5,»)'  ' 

211 

writers,*)'  Material  Properties:' 

212 

write(S,*)'  Emod”' ,Emod, '  nu“',na 

213 

if (ipl.eq.O)then 

214 

write(5,»)'  Plane  Stress' 

215 

else 

216 

write(5,»)'  Plane  Strain' 

217 

endif 

218 

write(5,*)'  ' 

219 

writa(5,»)'  Stress  Intensity  Factors:' 

220 

writa(5,»)'  Ki-',rKi,'  Kii-'.rKri 

221 

write(5,*)'  ' 

222 

writers,*)'  Energy  Release  Rates:' 

223 

writa(5,»)'  Jnear”  'jJnear 

224 

write(S,»)'  Cf’.r  , Jfar 

225 

clasa(5) 

226 

vrrita(»,»)'  Jfar-',  Jfar 

227 

end 

Hama 


Type 


A  COMPLEX 

A1  P£AL 

AUIAC 


Offset  P  Class 

/OAK  / 
IDTRIMSIC 


3200 

21468 


AN 

ATAN 

3 


COMPLEX 


21112 


INTRINSIC 


peal 


21472 
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0  Line#  1  7 

31 

REAL 

21034 

32 

REAL 

21038 

r 

REAL 

0 

/CRACK  / 

QCPLX 

CONJS 

COS 

CSQRT 

DEM 

REAL 

21010 

XKTItIMSIC 

INTRINSIC 

INTRINSIC 

INTRINSIC 

DOM 

COMPLEX 

20978 

ODKl 

COMPLEX 

21026 

0DM2 

COMPLEX 

21168 

OZ 

COMPLEX 

***** 

SHOO 

REAL 

0 

/MAT  / 

FLOAT 

rt3 

COMPIEX 

***** 

INTRINSIC 

GHOO 

REAL 

i 

/MAT  / 

I 

INTEGER* 2 

20986 

IC 

INTEGER* 2 

20976 

IPL 

INTEGER* 2 

20896 

IZ 

IMTEGEH*2 

4800 

/dam  / 

J 

INTEGER*  2 

21050 

JC 

COMPLEX 

21460 

JCl 

COMPLEX 

21492 

J7AR 

REAL 

21500 

JHEAR 

REAL 

21448 

K 

REAL 

12 

/mat  / 

K12 

COMPLEX 

21272 

KTOT 

COMPLEX 

21098 

LC 

REAL 

21452 

LDIG 

INTEGER*2 

14680 

LMGT 

INTEGER*! 

14780 

MASK 

INTEGER*! 

14880 

MFIL 

CHAR*10 

20902 

MDIS 

INTEGER*! 

20974 

KMIC 

INTEGER*! 

20972 

MMX 

INTEGER*! 

20880 

HMY 

INTEGER*! 

20882 

MU 

REAL 

3 

/MAT  / 

PI 

REAL 

20892 

REAL 

RKI 

REAL 

21440 

INTRINSIC 

RKII 

REAL 

21444 

SIG 

REAL 

3816 

SIGXI 

REAL 

4 

/REMOTE/ 

SIGYY 

REAL 

0 

/REMOTE/ 

SIM 

SORT 

THETA 

REAL 

21014 

nrntiNsic 

INTRINSIC 

VERTEX 

REAL 

14616 

WC 

REAL 

21456 

XCSM 

REAL 

20898 

XO 

REAL 

21013 

XDIS 

REAL 

21042 

XE 

REAL 

21002 

XEC 

REAL 

21066 

XLOH 

REAL 

20884 

XS 

REAL 

20994 

xsc 

REAL 

21058 

YD 

REAL 

21022 
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0  Line#  1  7 

TOIS 

REAL 

21046 

IE 

REAL 

21006 

YEC 

REAL 

21070 

now 

REAL 

20888 

ys 

REAL 

20998 

ISC 

REAL 

21062 

z 

COMPLEX 

*«*•** 

ZOl 

COMPLEX 

0 

/DAM 

Z02 

COMPLEX 

1600 

/DAM 

ZC 

COMPLEX 

*•«•« 

ZE 

COMPLEX 

21120 

ZINC 

COMPLEX 

*»»•* 

ZLEV 

REAL 

3616 

ZNO 

COMPLEX 

21484 

ZP 

REAL 

16 

ZS 

COMPIEX 

***** 

ZST 

COMPLEX 

21476 
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1 

1 

1 

1 

1 

1 

1 

1 


229  C 

229  c  — - -  — , .  . —  Rgnbsrg  Integration  Routines  - 

230  c 

231  Subroutine  QroBb(ic,zst,zn<i,Il2) 

232  Parameter  (eps»S.e-^,jiiiar«20,jBexp~jBar'M,lc»5,]cBi~4) 

233  Complex's  Izl(jmaxp) ,dlz,riz 

234  Raal*4  b(jmaxp) 

235  h(l)-l.a 

236  do  0010  j~l,jmax 

237  call  Trap2d(ifnnc,ic,zst,2nd,lzl(j) ,  j) 

238  if(J.ga.ie)tnen 

239  l«j-ka 

240  call  Polint(b(l)  ,Izl(l)  ,lc,0.0,llz,dlz) 

241  if  (cabs(dl2)  .It.  (eps'cabsdiz) )) return 

242  endif 

243  Zzld+l)-r3i(j) 

244  ll(j+l)«0.2S*ll{j) 

245  0010  continue 

246  write (*,»)'  Too  many  steps  for  regd  accuracy' 

247  end 


Name 

Type 

CABS 

DIZ 

COMPLEX 

EPS 

H 

real 

IC 

INTEGER*  2 

IFTOC 

INTEGER*? 

IIZ 

COMPLEX 

IZl 

COMPLEX 

J 

INTEGER*? 

JMAX 

JMAX? 

K 

KM 

L 

INTEGER*  2 

IND 

REAL 

ZST 

REAL 

248  C 

Offset  P  Class 

INTRINSIC 

21772 

PARAKETSR 

21632 
0  » 

21763 
12  * 

21514 

21766 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

21770 

3  • 

4  ♦ 
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D  Lina#  I 

249  c 

250 

251 

252 

253 

254 

255 

256 
1  257 

1  258 

1  259 

1  260 
1  261 
1  362 

1  263 

1  264  11 

265 

266 
267 

1  268 

2  269 

2  270 

2  271 

2  272 

2  273 

2  274 

2  275 

2  276  12 

1  277 

1  278 

1  279 

1  280 
1  281 
1  282 
1  283 

1  284  13 

285 

286 
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suBRooTnre  POLiirr(XA.,yA,K,x,x,DY) 

PASAHETZK  (NMXX-10) 

Complsx»8  YA(M)  ,C(MMAX)  ,D<NMAX)  ,  Y,DY,M,WDEH 
DIMEMSIOH  XA(K) 

MS-1 

0IP»ABS{3:-XA(1) ) 

DO  11  r-l,M 
DIFT-AaS(X-XA(X) ) 

IP  (DIPT. LT. DIP)  THEM 
HS-I 

DIP-0r?T 

EMDIP 

c(i)-yA(i) 

D(I)-YA(I) 

CONTIHDZ 

Y-YA(KS) 

KS-MS-1 
DO  13  M-1,.'I-1 
DO  12  I-1,K-K 
HO-XA(I)-X 
HP-XA(I+M)-X 
W-C(I+1)-D(I) 

DEK-BO-HP 

WDEir-«r/DEK 

D(I)-HP*WDEM 

C(I)-flO*MDEK 

COMTINDE 

IP  (2*KS.LT.H-M)THE1I 
DY-C(»S+1) 

ELSE 

DY-D(KS) 

MS-MS- 1 
SMDI? 

Y-Y+DY 

COHTOfOE 

RETOHM 

END 


Nana 

Typa 

ABS 

C 

COMPLEX 

0 

COMPLEX 

DEN 

REAL 

DIP 

REAL 

DIPT 

REAL 

DY 

COMPLEX 

HO 

REAL 

HP 

REAL 

T 

INTEGER* 2 

INTEGER*! 

jr 

INTEGER*! 

MMXX 

US 

INTEGER*! 

w 

COMPLEX 

WEH 

COMPLEX 

X 

REAL 

XA 

REAL 

Offsat  P  Class 

INTRINSIC 

21804 
21884 
22012 
21966 
21978 
20  » 

21996 
22000 
21970 
21982 
3  • 

PARAMETER 

21964 
22004 
22016 
12  • 

0  * 
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r  COMPLEX  16  * 

YA  COMPLEX  4  * 
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287  c 

288  c 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 
1  302 

1  303 

1  304 

1  305  0010 

306 

307 


Subroutlna  Trapzd(lc,zsC,7nd,IIz>n) 
COBpl«::'*8  zsC,znd,XZz,del,z,lzl.Iz2 
i£(n.aq.l)th«n 
Call  Pnct(lc,zat,rzl) 

Call  FnctUc,zod,Xz2) 

Ilz-0 . 5*  ( znd-zat)  *  ( Izl+Iz2 ) 
it-1 
alsa 

tiu>>float(lt) 
del>  ( znd-zs't)  /tna 
z-zat-t-O .  S*d«l 
Zz2<k:bp1z  ( 0 . 0 , 0 . 0 ) 

Do  0010  j-l,it 
Call  PBCt(ic,z,Izl) 

Iz2"Iz2+Izl 

z-z+del 

eontinaa 

IIz-0.5*(IIz+(znd-za't)  *Iz2/tnm) 
it-2*it 


308 

1  andlf 

309 

»  r«ttizTi 

310 

1  and 

Hana 

Type 

o 

u 

• 

ft 

? 

Class 

CMPLX 

turaiNsic 

DEL 

COMPLEX 

22086 

FLOAT 

tSTHIKSIC 

IC 

1I1TEGER*2 

0 

* 

IIZ 

COMPIIEX 

12 

* 

IT 

Ijm:GZR*2 

22080 

IZl 

COMPLEX 

22048 

IZ2 

COMPLEX 

22056 

W 

nrrEGER*2 

22118 

M 

IMTEGER*2 

16 

* 

TNM 

REAL 

22082 

Z 

COMPLEX 

22102 

ZSTD 

COMPLEX 

8 

* 

ZST 

COMPLEX 

4 

* 

311  c 

312  c 

313  SubrouCina  ?nct(ic,z,IIz) 

314  COBplax*8  z,jzl,fz2,ftl,ft2,llz,z01(200),z02(200),a(200), 

315  1  phin,;cain,duiB 

316  Csimon  /da]B/z01,z02,a,iz 

317  CoBmon/raaot:a/3i<jyy,si<jxy 

318  Jtl-caplx(0. 0,0.0) 

319  St2-caplx(0. 0,0.0) 

320  c 

321  c  Sun  over  all  Dislocations 

322  c 
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323  do  0010  lz-l,lc 

1  324  call  PHI(Z,fZl) 

1  325  call  KSI(Z,fz2) 

1  326  ftl-ftl-fzl 

1  32?  ft2-ft2-fz2 

1  328  0010  contlnua 

329  C 

330  c  Add  effects  of  remote  loading  in  the  potentials 

331  C 

332  if (sigyy.lt.  0.0) then 

333  sigyl-0.0 

334  else 

335  sigyl-sigyy 

336  endif 

337  fzl>caplje(sigyl,sigxy) 

338  phin-(sqrt(c)/4.0)  *(fzl/csqrt(z) ) 

339  fzl>caplx( (0.25*sigyy)  ,0.0) 

340  phin*^hin>fzl 

341  fzl-(1.0/osqrt(conjg(z) )  )-(0.5/csqrt(z) ) 

342  fz2“(1.0/c*qrt{conjg(z) )  )+(0.5/csqrt(z) ) 

343  dUB-CBplr(0. 0,1.0) 

344  lcain-(sgrt(c)/4.0)  *(  (ai^l*tzl) -(sig3cy»dum*fr2) ) 

345  dum-cBplx(  (0.5*sigyy)  ,sigxy) 

346  jcsin-)cain4dum 
34?  c 

348  ftl-ftl+phin 

349  ft2-ft2+Icsin 

350  C 

351  IIZ-(ftl»ftl)  +  (2.0*ftl*ft2) 

352  return 

353  end 


Name 

Type 

Offset 

P 

Class 

A 

COMPLEX 

3200 

/DAM  / 

C 

REAL 

22200 

CMPLX 

INTRINSIC 

CONJG 

INTRINSIC 

CSORT 

INTRINSIC 

DOM 

COMPLEX 

22308 

FTl 

COMPLEX 

22150 

FT2 

COMPLEX 

22158 

F21 

COMPLEX 

22172 

FZ2 

COMPLEX 

22180 

IC 

INTEGER*  2 

0 

* 

IIZ 

COMPLEX 

3 

* 

IZ 

INTEGER*  2 

4800 

/DAM  / 

.tSIK 

COMPLEX 

22316 

QgTM 

COMPLEX 

22192 

SIGXT 

REAL 

4 

/REMOTE/ 

SIGTl 

REAL 

22138 

SIGYY 

REAL 

0 

/REMOTE/ 

SORT 

INTRINSIC 

Z 

COMPLEX 

4 

* 

ZOl 

COMPLEX 

0 

/DAM  / 

Z02 

COMPLEX 

1600 

/DAM  / 

354  c 


7 


0  Un«t  1 

355  e 

356  C 

357 

358 

359 

360 

361 

362 

363  e 

364  C 

365  C 
3f'6 

367 

368 

369 

370 
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Subroutine  ?HI(z,fzt) 

Complex*8  z,z01(200]  ,z02(200} , fz, fzt,a(200)  ,an 

Com>on  /daa/z01>882,a,iz 

an~a(iz) 

caill  Phi2(aB,z,z01(.i2)  ,fz) 
f zt» ( an/ ( z-zoi (iz) ) ) +f z 

Add  H«gativ*  Burgess  Vector 


an^l.0*a(iz) 

call  Phi2(an,z.z02(iz)  ,fz) 
fzt«fzt+fz+(an/(z-202(iz) ) ) 
return 
end 


Kaa* 

Type 

Offset 

P 

Class 

k 

COKPLZX 

3200 

/DAM 

/ 

AN 

COMPLEX 

22380 

rz 

COMPLEX 

22388 

F2T 

COMPLEX 

4 

* 

IZ 

mTEGBR*2 

4800 

/DAM 

/ 

z 

COMPLEX 

0 

• 

ZOl 

COMPLEX 

0 

/DAM 

/ 

Z02 

COMPLEX 

1600 

/DAM 

/ 

371  c 

372  e 

373  C 

374  Subroutine  Pbl2(an,z,zo,fzt) 

375  Conplex*8  an.ac, z ,zo, fzt,  fzl,  f22, fz3 ,Xz 

376  ac-conjg(a.'’) 

377  zoc-conjg(zo) 

378  call  fX(z,Xz) 

379  call  P(Z,ZO,f21) 

380  call  ?(Z,20C,fZ2) 

381  call  a(z,zoc,fz3} 

382  c  fzt«-l.o«(  (an*fzl)+(an*fz2)  +  (ac»(zo-zoc)  *fz3) ) 

383  fzt«-1.0*(  (an*frl)  +  (an*fz2)  +  (ac*(ro-zoc)  •fz3) -(an*Xr) ) 

384  return 

385  end 


Nam 

Type 

Offset 

P 

Class 

AC 

COMPLEX 

22420 

AH 

COMPLEX 

0 

* 

COKJG 

UTTRINSZC 

FZl 

COMPLEX 

22440 

FZ2 

COMPLEX 

22448 

rz3 

COMPLEX 

22456 

FZT 

COMPLEX 

12 

XZ 

COMPLEX 

22432 

z 

COMPLEX 

4 

* 

ZO 

COMPLEX 

8 

« 

zoc 

REAL 

22428 

386  c 
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387  c 

388  c 

389 

390 

391 

392 

393 

394 

395 
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Subroutina  Tiz,za,tz} 
COBplax*8  z.zo,Sz,Xz,Xza 
call  nc(2,X2) 
call  CC(zo,Xzo) 

f Z- ( 1 . 0- (3CZ/3C20) )  /  (2 . 0*  (z-zo) ) 

raturn 

and 


Nasa 

Typa 

Offsat 

n 

COMPLEX 

8 

xz 

COMPLEX 

22512 

xzo 

COMPLEX 

22520 

z 

COMPLEX 

0 

zo 

COMPLEX 

4 

?  Claaa 


396  c 

397  o 

398  c 

399 

400 

401 

402 

403 

404 

405 

406 

407 


Subroutina  a(z,zo,iz) 

CQiiplex*8  Z,20,SZ,3CZ,XZ0,XPZ0 
call  tX(z,Xz) 
call  fX(zo,Xza) 
call  fXP(zo,X?zo) 

tz-1.0-(Xz/Xzo)  +  ((  (z-zo)*Xz»XPzo)/(Xzo*Xzo) ) 

f2-fZ/(2.0*(Z-ZO)  *(z-zo) ) 

ratum 

and 


.Vase 

Type 

offsat 

? 

FZ 

COMPLEX 

8 

* 

XPZO 

COMPLEX 

22568 

XZ 

COMPLEX 

22552 

XZO 

COMPLEX 

22560 

z 

COMPLEX 

0 

* 

zo 

COMPLEX 

4 

* 

408  c 

409  c 

410  c 

411  Subroutina  £X(z,Xz) 

412  CoBplax*8  Xz,z,zpc 

413  Cooimon  /crack/  c 

414  Z3C-(Z+C)*Z 

415  Xr»l .  o/c»grt(zpc) 

416  ratum 

417  end 


Maoa 


CSQRT 

:cz 

z 


Typa 

RZAl. 


Offsat  ?  Class 

0  /CaAC3C  / 
INTRINSIC 


COMPLEX 

COMPLEX 


4  • 
0  • 
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ZPC  COMPLEX  22640 


418  C 

419  C 

420  C 

421  C 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 


Subrootlna  fXP(z,XP2) 
Compler*8  XFz,z,zpc,2a,zb 
COBBOO  /crack/  c 
zpc-zfc 
za-csqrt(z) 

za>za*za*za*csqrt ( zpc) 
zb»csgrt  (z)  •esqrt  ( zpc*2pc*zpc) 
XPz— 0.5*((1.0/za)  +  (1.0/2b) ) 
racum 
ai:d 


Nana 

Type 

Offsat 

P 

Class 

C 

!t£AL 

0 

/CRACX  / 

CSQRT 

XF2 

COMPLEX 

4 

* 

DTESIKSIC 

Z 

COMPLEX 

0 

* 

ZA 

COMPLEX 

22680 

ZB 

COMPLEX 

22728 

ZPC 

COMPLEX 

22672 

432  c 

433  c 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448  C 

449  C 

450  c 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 


Subroutina  KSr(z,fzt) 

CQBplaa:*8  z , zc,  zoc, zoi (200) ,  z02  (200) , fzl,  f z2 ,  f z3 ,  f zt , a (200) , 
1  an,4C 

CoBBOR  /daa/z0l,z02,a,iz 
an»a(iz) 

2c:«conjg(r) 

call  Plii2(an,zc,z01(i2)  ,fzi) 
fzl»con3g(fzl) 

call  ?hi2(an,z,z01(iz)  ,fz2) 
call  Phi2P(an,z,z01(iz)  ,f23) 
fzt-fzl-tz2-(z*fz3) 
ac^onjg(an) 
zoo»conig(z01(iz) ) 

f  zt-f rt+  (ac/  ( z-zOl  (iz) ) )  +( (an*zoc)/  ( (z-zoi  (iz) )  ♦  ( z-zOl  ( iz) ) ) ) 

Add  Negative  of  Sacond  Burgess  Vector 

an«-l.o»a(iz) 

call  ?!ii2(an,zc,z02(iz)  ,fzl) 
fzl»con3g(fzi) 

call  ?lii2(an,z,z02(iz)  ,fz2) 
call  ?hi2P(an,z.z02(iz)  ,fz3) 
fzr-?zt+fzl-fz2-(z-*fr3) 
ac-canjg(an) 
zoc-conjg(i02(iz) ) 

) ) ) 

end 
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Kane 

Type 

A 

COMPLEX 

AC 

COMPLEX 

AM 

COHJG 

COMPLEX 

F21 

COMPLEX 

TO. 

COMPLEX 

TZ2 

COMPLEX 

F2T 

COMPLEX 

IZ 

iwrasER*! 

Z 

COMPLEX 

ZOl 

COMPLEX 

Z02 

COMPLEX 

zc 

COMPLEX 

zoc 

COMPLEX 

offset  P  Class 

3200  /0AM  / 

228SS 
22803 

CrtBXMSIC 

22824 
22832 
22840 
4  * 

4800  /DAM  / 

0  * 

0  /DAM  / 

1600  /DAM  / 

22316 
22864 
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462  c 

463  c 

464  c 

465  Subroutine  Phi2P(an,z,2o,fzt) 

466  CoBplax«8  an,ac, z,  zo, fzt, fzl, fz2 , fz3,XPz 

467  ac>canjg(an) 

463  zoc-conjg(zo) 

469  call  fXP(Z,XP2) 

470  call  FP(2,zo,fzl) 

471  call  PP(z,2oc,fz2) 

472  call  GP(Z.20C,fz3) 

473  fzt»-1.0»(an*fzl+an*fz2+ac*(zo-zoc)  •fz3-an*XPz) 

474  c  fzt— 1.0*(an»fzl+an»fz2+ac»{zo-zoc)  *fz3) 

475  return 

476  end 


Hane 

Type 

Offset 

? 

Class 

AC 

COMPLEX 

22952 

AH 

COMJG 

COMPLEX 

0 

• 

INTRIHSIC 

rzi 

COMPLEX 

22972 

rz2 

COMPLEX 

22980 

FZ3 

COMPLEX 

22988 

FZT 

COMPLEX 

12 

* 

XPZ 

COMPLEX 

22964 

z 

COMPLEX 

4 

* 

zo 

COMPLEX 

3 

* 

zee 

SEAL 

22960 

477 

c 

478 

c 

479 

c 

480 

Subroutine  FP(z,zo,fz) 

481 

Complex's  z,zo,fz,Xz,Xzo,XFZ 

482 

call  fX(z,X2) 

call  fX(3o,Xzo) 
call  nc?(z,XPz) 

fz-1.0-(X2/Xzo)  +  ((  {r-zo)*xPz)/Xzo) 


433 

484 

485 
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Unet  1 

7 

486 

fZ»fS/(-2-0*(2-ZO)  *(2-20)  ) 

487 

return 

488 

end 

Hama 

Type 

TZ 

COMPLEX 

XPZ 

COMPLEX 

xz 

COMPLEX 

xzo 

COMPLEX 

z 

COMPLEX 

zo 

COMPLEX 

0£2sae  P  Class 

8  * 

23060 

23044 

23052 

0  » 

4  • 
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489  C 

490  c 

491  C 

492  Subroutlns  GF(r,zo,fr) 

493  Complax*a  z,ZO,fz,tzX,i22,Xz,Xzo,XPZ,XPzo 

494  call  GC(Z,Xz) 

495  call  tX(20,X20) 

496  call  CT(Z,XPZ) 

497  call  £XP(ZO,XPZO) 

498  £zl«1.0-(Xz/XZO)  +  (  (  (Z-ZO)*XZ*XPZO)/CXZO*XZO) ) 

499  fzl-fzl/  (  (Z-20)  •  ( z-zo)  *  (z-zo) ) 

500  f  Z2-  ( ( z-zo)  *XPzo*XPz )  /  (Xzo»Xzo) 

501  fz2-f  z2+(  (XPzo*Xz)  /  (X20*XZ0J  )  -(XPZ/XZO) 

502  fz2-fZ2/ (2.0*  (z-zo)*  (z-zo)) 

503  fz-fzl-fzl 

504  ratum 

505  end 


Naae 

Type 

Offset 

P  Class 

?Z 

COMPLEX 

3 

* 

FZl 

COMPLEX 

23148 

F32 

COMPLEX 

23220 

XPZ 

COMPLEX 

23132 

XPZO 

COMPLEX 

23140 

xz 

COMPLEX 

23116 

xzo 

COMPLEX 

23124 

z 

COMPLEX 

0 

* 

zo 

COMPLEX 

4 

* 

506  c 

507  C 

508  Subroutine  PHIP(z,;zt) 

509  CoBplex*S  z, 201(200) ,z02(200) ,£z,fzt,a(200)  , an 

510  CooDOn  /dan/201,z02,a,iz 

511  an“a(iz) 

512  call  PtLL2P(an,z,z01(iz)  ,'2) 

513  f2t«fz-(4n/((z-z01(iz) )  *(z-z01(iz) ) ) ) 

514  an— l.o*a(iz) 

515  call  Ptii2P(an,z,z02  (iz)  ,fz) 

516  £zt-f2t+fr-(4n/(  (z-zo2(i2) )  *  (z-z02  (iz) ) ) ) 

517  return 

513  end 
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7 


270 


0  Iiinaf  1 


Hasa 

Typa 

A 

COMPLEX 

AM 

COMPLEX 

?Z 

COMPLEX 

TZ7 

COMPLEX 

12 

IMTEUEK'*2 

2 

COMPLEX 

201 

COMPLEX 

202 

COMPLEX 

Offsac  ?  Class 

3200  /OAH  / 

23316 
23324 
4  • 

4800  /DAK  / 

0  * 

0  /DAK  / 

1600  /DAK  / 
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519  c 

520  c 

521 

Masa  Typa 

Size 

Class 

CSACK 

4 

COMMOH 

DAM 

4302 

COMMON 

ENERGY 

PROGRAM 

? 

SaBROOnDTE 

FMCT 

SDBHOOTIME 

?P 

SDBRODTINE 

7X 

SDBSOOTIKB 

rxp 

StIBRODTIHE 

G 

SDBROUTINE 

G? 

SDBROOTINE 

ESI 

SUBROOTINE 

16 

COMMON 

PHI 

SUBROOTINE 

PHI2 

SUBROOTINE 

PHI2P 

SUBROUTINE 

PKCP 

SUBROUTINE 

POLIMT 

SUBHOOTINB 

QRO«re 

SUBROUTINE 

SEsOTE 

8 

COMMON 

TSAP2D 

SUBROUTINE 

Pass  Ona 


Ko  Errors  Datectad 
521  sourca  Unas 
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1  $Storage:  2 

2  $Debug 

3  Prograa  loaln 

4  c********************************************************************* 

5  c*****  This  progran  is  designed  Co  coopuCe  the  stress  intensity  * 

8  factor  at  various  locations  in  front  of  the  crack  tip  for  a  • 

7  c*****  particular  dasage  configuration.  • 

g  c********************************************************************* 

9  c 

10  Compler*8  z, zst,znd, zinc, ze, z01(200)  ,z02 (200)  , 

11  1  a(200)  ,duml, dun, dual, z3,ze,dz,an,Xtot,X12,ft3 

12  Real*4  k,nu,rs (50)  ,xe(S0)  ,ys(50)  ,ya(50)  ,bl(50)  ,b2  (50) 

13  character*10  afil 

14  C 

15  pi-3. 141592654 

16  write(*,*)'  Give  material  properties' 

17  0005  vrite(*,*)'  eaod.nu.  0->  pi.  stress  l->  pi.  strain' 

18  read(*,  *,err-0005)  enod,nu,lpl 

19  if (ipl.eq.O)then 

20  )e-(3  .Q-nu)/(1.0+nu) 

21  else 

22  k-3.0-4.0*nu 

23  endif 

24  gmod-esod/ (2.0*(1.0+nu) ) 

25  0010  write(*,*)'  Give  main  crack  length' 

26  read(*, *,err-0010)e 

27  0007  vrite('*,*)'  Damage  zone  length' 

23  read(*,*,err-0007)xmar 

29  0038  write(*,*)'  Give  sig-3cy  ' 

30  read(*,  •,err-0038)  sigxy 

31  rk2c-sigry*sqrt(pi*o.5»c) 

32  write (»,»)'  ' 

33  vrite(*,*)'  Give  Pile  Kame  for  Microcrack  Data' 

34  raad(*,00ll)afil 

35  0011  format(alO) 

36  C 

37  open(5,  file-mfil,status«'old') 

38  c 

39  c  naiic-#  of  microcracks  ndis»#  of  dislocations/micro 

40  c 

41  read(5,*)nmic,ndis 

42  if  (ndis.le.O.or.ndis.gt.lO)ndis-l 

43  c 

44  c  Next  read  coords  of  the  microcrack  (xs,ys)  to  (xe.ye) 

45  c 

46  do  0012  i-l,aaic 

1  47  read(5,*)xs(i)  ,ys(i)  ,xe(i)  ,ye(i) 

1  43  read(5, ‘)bl(i) ,b2(i) 

1  *9  0012  continue 

50  close(S) 

51  c 

52  c  Start  tie  cosputation  for  tie  SIP 

53  c 

54  open{S,  file-'kcrak.out' ,  status- 'new') 

55  opan(  6,  file-'kdaa.out' ,3tatus-'new') 

56  open (7,  file-'ktot.out'  ,statu.w'new' ) 

57  do  0016  j-1,  100 

}■  •write(*,*)'  working  on  ',j,'th  point' 

1  59  ic-0 
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xc«n-(xaa3c*float(  j-1)  )/ioo.O 

do  0017  l-l,naic 

xes«xa(  1) -xc«n 

xss»x8(i)-xcan 

y*«»yo(i) 

ys«-y*(i) 

d«n-x«s-xss 

if  (dan.lt.  0.000001)  than 
thata"pi/2.0 

alsa 

that8-atan(  (ya»-yaa) /dan) 
andlf 

xd>^09(thata) 

yd-sln(thata) 

duoa-caplx  ( xd,  yd) 

bls>bl  ( i)  /  float  ( ndls ) 

b2s-b2  ( i)  /  float  { ndia) 

xdl9-(xaa-xsa)/(2.0*float(ndis'fl) ) 

ydls-(yaa-yaa)/(2.0*float{ndia+i) ) 

dtnB>caplx(0,  1) 
do  0013  1-l.ndls 
ic-ic+1 

xsc»xa«+(»li9»float(l) ) 
ysc-yaa*  (ydia*f  loat  ( 1) ) 
xac-xaa- (xdi3*f  loat  <  1) ) 
yec-yaa-(ydla*float(l) ) 
zOl  ( Ic)  acsplx  (xac,  ysc) 
z02  (ic)-caplx(xec,yoc) 

a ( Ic) -caplx (bla , b23) 

a(lc)»(g»od/(pl*(3c+l) ) )  *dual*a  ( ic) 

a(ic)«a(ic)/duia 

continua 

contlnua 

Start  oonpotation  of  tha  Strass  Intensity  Factor 
cl-e+xcen 

Ktot-caplx ( 0 . 0 , 0 . 0 ) 

Do  0030  i«i,ic 

an-a(i) 

zo«z01(l) 

dun>csqrt(  (zetcl)/ze) 
dua»-l.o*an*(taal(dwm)  -l.O) 
dua2>caqrt(canj9(za) ) 

dUB2-2 .  a*daB2*dvD(2'*duB2  *caqrt  ( con  j  g  ( za)  -h;!) 
dUBl»(coojg(an)  *aiBag(za)  *cl)/dum2 
dUB2>caplx ( 0 . 0 , 1 . 0 ) 
dUBl^dusl  *da]B2 

X12— 2.0*sqrt(  (2*pi)/cl)  *(dua+dUBl) 

an— l.OM(i) 

za«z02(l) 

duB'-csqrt(  (zat-clj/za) 
dUB— l.o*an*(raal  (dum) -1. 0) 
dun2>csgtt(canjg(za) ) 

dujtt2“2 . 0»du»2*dnB2*dvuii2*csqrt(conjg(  za)-*d) 

dual' ( con) g( an)  *aiaag(ze)  »cl)/dum2 
dua2-caplx ( 0 . 0 , 1 . 0 ) 

dir»7  *d\ni2 
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2  119  ia2-ia2-(2.0*s<irt:{(2*pi)/cl)*(du»f<lu»l)) 

2  120  Ktot>iKtOt+IC12 

2  121  0030  contlnua 

1  122  C 

1  123  c  Wrlta  out  tha  Strasa  Intanalty  Factors 

1  124  c 

1  125  rXIZ«-1.0*alaag(Ktat) 

1  126  rKII-rlCCI/rk2c 

1  127  r)cctalc»«igxy*sqrt(pi»0.5*cl) 

1  128  r]ccraJc>r}ccraVi'>e2c 

1  129  wrlta(S,*)rcaii,rlcera)c 

1  130  vrita(6,*ircan,mz 

1  131  totarJccraJorlCCZ 

1  132  wrlta(7,*)xcao,tot 

1  133  writa(*,»)' 

1  134  vrlta(*,*)'  Strass  Zntanalty  Factors:  ' 

1  135  wita(*,*)'  Ma»-',rXZZ,'  KcracJe-' ,rlce:ra3c, '  Ktot-',tot 

1  136  0016  contlnua 

137  closa(5) 

138  closa(6) 

139  closa(7) 

140  and 
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Typa 

OEfsat  P 

Class 

A 

AZKAC 

COKPLE3C 

3216 

nmtnfsrc 

Mt 

ATAM 

COMPLEX 

6280 

INTRINSIC 

81 

REAL 

5616 

SIS 

REAL 

6190 

32 

REAL 

5816 

32S 

REAL 

6194 

C 

REAL 

6038 

CL 

CMPUC 

.REAL 

6262 

INTHIHSIC 

COHJG 

INTRINSIC 

COS 

INTRINSIC 

CSQRT 

DEN 

REAL 

6166 

INTRINSIC 

OOK 

COMPLEX 

6206 

OOKl 

COMPLEX 

6182 

OOM2 

COMPLEX 

6336 

DZ 

COMPLEX 

SHOO 

FLOAT 

REAL 

6020 

INTRINSIC 

FT3 

COMPLEX 

***** 

OMOD 

REAL 

6034 

r 

UrrSGER*2 

6128 

:c 

IHTSGER*2 

6138 

:?L 

INTEGER*! 

6023 

s 

INTEGER*! 

6136 

s 

REAL 

6030 

KL2 

COMPLEX 

6440 

3CrOT 

COMPLEX 

6266 

INTEGER*! 

6214 

itrzi. 

CHAR*10 

6054 

MDIS 

INTEGER*! 

6126 

NKZC 

INTEGER*! 

6124 
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REAI. 

6024 

PI 

REAL 

6016 

!tEM. 

!tX2C 

REAL 

6050 

SXCSAX  8ZM. 

6612 

SKII 

REAL 

6608 

srsxY 

REAL 

6046 

SIN 

SORT 

TBETA 

REAL 

6170 

TOT 

REAL 

6616 

XCSN 

REAL 

6140 

XD 

REAL 

6174 

XDIS 

REAL 

6198 

XE 

REAL 

5416 

XEC 

REAL 

6230 

XES 

REAL 

6150 

XHAX 

REAL 

6042 

XS 

REAL 

4816 

XSC 

REAL 

6222 

XSS 

REAL 

6154 

YD 

REAL 

6178 

YOIS 

REAL 

6202 

YE 

REAL 

5216 

YEC 

REAL 

6234 

YES 

REAL 

6158 

YS 

REAL 

5016 

YSC 

REAL 

6226 

YSS 

REAL 

6162 

Z 

COMPLEX 

*••** 

201 

COMPLEX 

16 

Z02 

COMPLEX 

1616 

ZC 

COMPLEX 

*««** 

ZE 

COMPLEX 

6288 

ZINC 

COMPLEX 

***** 

ZKO 

COMPLEX 

***** 

ZS 

COMPLEX 

***** 

ZST 

COMPLEX 

***** 

HaDC 

Typ* 

Size 

IMTSTHSIC 
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ZHTSZMSIC 
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D  Lina#  1  7  Microsoft  FOBTRAM77  73.20  02/84 

1  $Storage:  2 

2  $0*bu9 

3  Progran  SI7 

4  c*********'******'****************************************************** 

5  c*****  Tbis  prograx  is  daaignad  to  ganaonts  a  graans  function  contour 

6  c*****  plot  using  tba  coaplax  potantial  rasults.  • 

7  c*************-******************************************************** 

8  C 

9  CoBplax*8  z,zc,zcJcl,zck2,z01,z02,fzl,fz2,fz3,txans, 

10  1  a,<lual,dim,duB2,(luB3,duB4,zs,za,dz,aa,Etot,ia2 

11  Raal*4  k,nu 

12  CoBBon/Workl/sif  (SO,SO,2)  ,zp(S0,50)  ,zlav(50)  ,vartax(16) 

13  rntagar*2  Idig(sa)  ,lugt(5a)  ,Bas]c(3000) 

14  Data  nnz,nny,xlow,ylow  /SO, 50, 1.0, 1.0/ 

15  c 

IS  pi-3.141592S54 

17  vrlta(*,*)'  Siva  matarial  propartias' 

18  0005  writa(*,*)'  aaod,nu,  0->  pi.  strass  l->  pi.  strain' 

19  read(*,  *,arr>000S)aaod,nu,lpl 

20  if (ipl.aq.O)than 

21  lc-(3 .0-nu)/ (1.0+nu) 

22  alsa 

23  Ie«3.0-4.0*nu 

24  endif 

25  gaod-eaod/(2.0*(1.0H-nu)) 

2S  0010  writa(*,»)'  Give  main  crack  length' 

27  raad(*,*,arr»O010)c 

28  writaf*,*)'  Give  tha  aicrocrack  orientation, csd, cod' 

29  read(*,»)thata,bx,by 

30  thata-(pi*tbata)/180.0 

31  c 

32  c  CoBipute  the  Burgass  Vector  for  the  values  above 

33  c 

34  ci«cas<thata) 

35  si>^in(thata) 

3S  trana“caplx<ci,si) 

37  dUBecaplX(0,l) 

38  a-caplz:(bx,byi 

39  a>trans*a 

40  a»(gaod/{pi4(k+l)))*a 

41  a>a/dUB 

42  ax»raal(a) 

43  ay-alaag(a) 

44  vrita(*,»)'  a»',ax,'  •t-i',ay 

45  bBag»sqrt  (bx*bx+by  *by ) 

46  c 

47  c  Start  grid  loop  her« 

48  C 

49  0025  writa(*,*)'  Give  starting  and  ending  points  xs,ys,xa,ys' 

50  read(*,»,arr-0025)xs,ys,xe,ye 

51  c  writa(*,*)'  Give  grid  resolution  nx.ny  (nax  -  30)' 

52  c  raad(*,*,arr*0025)nx,.ty 

53  nx-49 

54  ny-49 

55  dx«(xa-xs)/float(nx-l) 

58  dy-(ya-ys)/float{ny-l) 

57  c 

58  c 

59  c 


Safina  the  grid  for  the  si?  cooputation 
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60  Sif 1-0.0 

SI  Sif  2-0.0 

62  C 
S3  C 

64  do  0035  i-l,QX 

1  65  xd-dx*flo»t(i-l) 

1  66  do  0045  j«l,ny 

2  67  yd-dy*  float  (j-1) 

2  68  yval-ys+yd 

2  69  xval-xa-Kxd 

2  70  z-caplx(xval,yval) 

2  71  2Ckl-2-C 

2  72  cz-0.01*cas(thata) 

2  73  sz-0.01*sln(th«ta) 

2  74  ZC-C3iplX(CZ,SZ) 

2  75  zck2-z-zc 

2  76  If  (cabs(z)  .lt.l.0«-6)tben 

2  77  writa(*,»)''  Singularity  at  r“',jeval,'y»',yval 

2  78  do  0043  t^l,2 

3  7S  9if(i,j,a)-1.0«35 

3  80  0043  contlnaa 

2  81  go  to  0045 

2  82  andif 

2  83  if  (ca]Ds(zcJcl)  .lt.l.0e-6)tlj4m 

2  84  writa(*,»)'  Singularity  at  z:-',xval,'y»',yval 

2  as  do  0044  a-1,2 

3  86  sif(i,j,a)-l.0e3S 

3  87  0044  continue 

2  88  go  to  0045 

2  89  andif 

2  90  if  (cal)s{zcJc2)  .lt.l.0a-6)tnan 

2  91  writa(*,»)'  Singularity  at  X-' ,xval, 'y-' ,yval 

2  92  do  0042  a-1,2 

3  93  sif  (i,j,a)-i.oa3S 

3  94  0042  continue 

2  95  go  to  0045 

2  96  andif 

2  97  xd2»0.0t*coa  (theta) 

2  98  yd2-0.oi»8ia(thata) 

2  99  x2-xval+xd2 

2  100  y2-yval+yd2 

2  101  ZOl-Z 

2  102  z02-capljc(x2,y2) 

2  103  xave-0.S*(xval+x2) 

2  104  yave-0.S*(yval+y2j 

2  105  rad-sgrt(xava*xava4yave*yava) 

2  106  c 

2  107  c  Ccapute  Mondinensionalizing  factor  via  ChudnovsJcy  approach 

2  108  c 

2  109  fact-gBod^sqrtCpi^o.S'cJ^bnag^CO.Ol) 

2  110  c  iact-(sgrt(pi/2.0)*(k+l.0)*sgrt(bBag))/(g*od*.0l) 

2  111  c 

2  112  c  Cooputa  the  Stress  Intensity  Factor  for  the  dipole 

2  113  c 

2  114  an-a 

2  115  ze-zOl 

2  116  dua-csqrt(  (ze+c)/ze) 

2  117  dua— l.o»an*{real(duB)-l.O) 

2  118  duii2-csgrt(conjg(ze) ) 
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2  119  duB2>2.0*dm>2*dUB2*dua2*csqrt(conjg(z*)'*«) 

2  120  duml>(conjg(an)*alBag(z*)*c)/dtm2 

2  121  duB3-caplx(0.a,1.0) 

2  122  (luBl-dUMl*dum2 

2  123  K12«-2.0*sqrt((2.0*pi)/c)*(dum8dvual) 

2  124  an“-1.0*a 

2  12S  z«-s02 

2  126  dUB»csgrt((z<H^)/z*) 

2  127  dtm>>-1.0*an*(r*al(dUB)-1.0) 

2  128  <itm2’^qrt(conjg(z»)) 

2  129  duB3-2.0*duBt2*dua2*duB2*csgzt(conjg(z*)4c) 

2  130  dtizil>(conjg(as)  *aisag{z*)  *c)/duai2 

2  131  duia~CBplx(0.0,l.a) 

2  132  dUMl-dttsl*da>2 

2  133  ia.2-K12-(2.0*s<irt((2*pt)/c)*(dua+duia)) 

2  134  C 

2  135  alfl-r*al(K12)/fact 

2  136  slf2>(-l.Q*alBag(IC12)  )/fact 

2  137  sif  (i.  j,2)-sif2 

2  138  sif (1, j,l)-slfl 

2  139  C  writ*(*,*)'  ' 

2  140  c  writ*(*,*)'  ' 

2  141  c  writ*(*,«)'  Location;  X“',xval,'  Y-',yval 

2  142  c  writ*(*.*)'  SXPs:  lCI-',sifl,'  iai»',*if2 

2  143  if  (abs(sza)  .lt.ab*(slf2)  )say^-ma.2{i,  j,2) 

2  144  if  (aba(sal)  .It.abs(sifl)  }smxasxf  (i,j,l} 

2  145  0045  continue 

1  146  0035  continu* 

147  c 

148  c 

149  c  Prepare  to  plot  tte  results 

150  c 

151  0050  writ*(*,»)'  Give  loport,ilod*l,Fact' 

152  read(*,*,*rr»0050)  ioport,aod*l,fact 

153  0055  vrie*^*,*}'  ia  ->  i,  xii  ->  2' 

154  r*ad(*,»,*rr»00S5)ip 

155  do  0090  ial,nx 

1  156  do  0095  j“l,ny 

2  157  zp(l,j)-sif(i,j,ip) 

2  158  0095  continue 

1  159  0090  continue 

160  if  (ip.eg.l]tlieo 

161  vrit*(*,*)'  The  naximm  value  is  ,stCl 

162  els* 

163  vrit*(*,*)'  Til*  maximal  value  is  a',sif2 

164  andif 

165  0070  writ*(*,*)'  —  Give  Contour  Information  — ’ 

166  writa(*,*)'  llevs,  min  lav,  max  lev,  #  betw  lelbels,  }  first  ' 

167  r*ad(*,  •,*rr-0070)ni*v,vain,vmax,nbl,a*t 

168  dlev-(vmax-vmin)/floac(nl*v) 

169  il»nst 

170  do  0075  i-l,al*v 

1  171  zlev(i)«v*irH'(dl*v«float(i) ) 

1  172  if(il.eg.nbl)ttien 

1  173  ldig(l)-l 

1  174  lwgt(i)»3 

1  175  il-0 

1  176  else 

1  177  Idig(i)— 2 
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lwgt(i)-l 
andif 
il-il+1 
0075  coneinua 
xtil9b«S .  0 
ytil9tv*S .  0 
bgt^O . 07 
narc-3 
ndiv-l 

call  ploca(0,iopore, modal) 

Mil  zca^(*p,nn]c,nny,nx,ny,xlow,ylow,:dtlgto,yblgh,8lav,ldlg, 

1  l«gt,nlav,hgt,ndiv,narc) 

do  0130  i-l,nlav 
zlav(i)— 1.0**lav(i) 
iwgt  ( i)  — 1 . 0*lwgt  ( i) 

0130  continua 

Mil  zM^*ip^nnx,nny,nx,ny,xlow,ylow,xhigli,yljigh,2lav,ldig, 

1  iwjt,nlav,ligt,ndiv,narc) 

c  Mil  stlina(l,. 1389,0.) 

xln-xhigh-xlow 
yln-yhigb-ylow 
:cdal-  (xe-xs )  /  ( xhigh-xlow) 

ydal-(ya-ya)/  (ybigb-ylow) 

hgtl“.l 

hgt2-.i 

Mil  scax±a(Iigtl,hgt2.hgti.iigt2,2) 

Mil  axis<xlow,ylow,'  '  ,-l.xln,0.0,xa.xdal) 

Mil  axis (xlov.y low, '  ' ,l,yln,90 .0,ys,ydal) 
call  axis(xlow,yliigli, '  ',l.xln,0.0,xa,xd^) 
call  axis (xbigti, y low, '  '  ,-l,yla,90.0,ys,ydel) 
cadi  plot:(0.,0., 999) 

0100  writa{*,*)'  3-0  Plot  ->  1 

raad(*,*,arr-0100)  t3d 
iS(i3d.gC.a)tSan 

0110  writa(»,*)'  Siva  horis,  vart,  anglas 

raad  ( • ,  * ,  arr>^110 )  ahor,  avar 
call  plots(0,ioport,aodal) 
call  f actor (2act) 
iproj“0 
itrii-o 
idit-3 
Zlow»1.0e35 
iframa»l 

call  aash(z?,nnx,rmy,nx,ny,ahor,avar,xlow,ylow,xhigh, 

1  ytigb,  iadga ,  idir,  iproj ,  iirana,  zlow, icut, 

2  itria,3asJt,vartax) 
call  ?loc(0.,0.,999) 

0080  -^itaC*,*)'  ■Try  a  difSarent  plot  ->  1 
raad ( * , • , arr-0080)  inaw 
ir(inew.gt.0)go  to  0050 
end 
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ABS 

ABOR 

REAL 

6968 

INTRINSIC 

AIKAS 

AH 

COMPLEX 

6524 

INTRINSIC 

AVER 

REAL 

6972 

AX 

REAL 

6318 

AY 

REAL 

6322 

BMAG 

REAL 

6326 

BX 

REAL 

6254 

BY 

REAL 

6258 

c 

REAL 

6246 

CABS 

Cl 

REAL 

6262 

INTRIMSIC 

CMPLX 

CONJG 

COS 

CSQRT 

CZ 

REAL 

6414 

INTRINSIC 

INTRINSIC 

INTRINSIC 

INTRINSIC 

OLEV 

REAL 

6908 

DOM 

COMPLEX 

6278 

OOKl 

COMPLEX 

6652 

D0M2 

COMPLEX 

6580 

DOX3 

COMPLEX 

OOH4 

COMPLEX 

OX 

REAL 

6350 

DY 

REAL 

6354 

DZ 

COMPLEX 

**««« 

EKOD 

REAL 

6228 

FACT 

REAL 

6520 

FLOAT 

?21 

COMPLEX 

INTRINSIC 

F22 

COMPLEX 

TZ3 

COMPLEX 

**«*« 

GMOO 

REAL 

6242 

HOT 

REAL 

6928 

KGTl 

REAL 

6958 

HGT2 

REAL 

6962 

I 

IirrEGER«2 

6366 

11 

XHTEGER*2 

6912 

13  D 

IHTZGZR*2 

6966 

ICOT 

IHTEGER*! 

6988 

IDIR 

IHTEGER*2 

6980 

lEOOE 

IHTEGER*! 

6990 

IFRAKE 

XMTEGER*2 

6986 

INEH 

IHTZGER*2 

6992 

lOPORT 

IHTEGER*! 

6876 

IP 

IHTEGER*2 

6880 

IPL 

IHTEGER*! 

6236 

IPROJ 

IHTEGER*2 

6976 

ITRIM 

IHTEGER*2 

6978 

W 

INTEGER*! 

6378 

X 

REAL 

6238 

K12 

COMPLEX 

6692 

STOT 

COMPLEX 

LOIS 

INTEGER*! 

12 

UiGT 

INTEGER*! 

112 

M 

nrPSGER*! 

6450 

MASK 

integer*! 

212 

MODEL 

INTEGER*! 

6878 
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MARC 

IMTEGER*2 

6932 

KBI. 

IMTEGER*2 

6904 

MBIV 

IMTSeER«2 

6934 

HIEV 

IMTSGER*2 

6894 

MI« 

IMTBGZR*2 

6212 

JOTf 

IHTBSER*2 

6214 

MST 

I1ITBGZR*2 

6906 

Hff 

REAL 

6232 

MX 

iirrB(:ER*2 

6346 

MV 

IMTBG£R*2 

6348 

PI 

REAL 

6224 

RAO 

REAL 

REAL 

6S16 

IKTRIMSIC 

SI 

REAL 

6266 

SIR 

REAL 

0 

/WQRKL  / 

SIPl 

REAL 

6358 

SIF2 

SIM 

REAL 

6362 

IMTRXMSIC 

sm. 

REAL 

6868 

sta 

REAL 

6860 

sta 

REAL 

6872 

SWf 

SORT 

REAL 

6864 

INTRIMSIC 

S2 

REAL 

6418 

THETA 

REAL 

6250 

TRAMS 

COMPLEX 

6270 

VERTEX 

REAL 

30200 

/WORE!  / 

VKAX 

REAL 

6900 

7HIM 

REAL 

6396 

X2 

REAL 

6484 

XAVE 

REAL 

6508 

ID 

REAL 

6374 

XD2 

REAL 

6476 

XDEL 

REAL 

6950 

XE 

REAL 

6338 

xHzoa 

REAL 

6920 

XLM 

REAL 

6942 

XLOH 

REAL 

6216 

X3 

REAL 

6330 

XVAL 

REAL 

6394 

12 

REAL 

6488 

YAVB 

REAL 

6512 

YD 

REAL 

6386 

Y02 

REAL 

6480 

YDBL. 

REAL 

6954 

YE 

REAL 

6342 

YHIGH 

REAL 

6924 

YIM 

REAL 

6946 

•nxM 

REAL 

6220 

YS 

REAL 

6334 

YVAL 

REAL 

6390 

6l 

COMPLEX 

6398 

201 

COMPLEX 

6492 

202 

COMPLEX 

6500 

2C 

COMPLEX 

6422 

2C3C1 

COMPLEX 

6406 

2CX2 

COMPLEX 

6430 

ZZ 

COMPLEX 

6532 

2LEV 

REAL 

30000 
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$Stora?e:  2 
$ Debug 

Program  Stress 

c******************************************************************** 

This  program  is  d*algn*d  to  compute  the  stress  field  In  the  * 
c*****  vicinity  of  a  main  crack  givin  a  damage  in  the  fora  of  dis-  * 
locations.  Tliis  tectmique  will  use  the  complex  potential  *- 
formulation  presented  by  K.K.  Lo.  * 

c******************************************************************** 

c 

Complex*8  z,  zc,  zOcl,  zclO ,  zcJc3 ,  ZOI  (50) ,  z02  (30) ,  f zl ,  f z2 ,  fz3 , 

1  a(30)  ,dunl.dua,2s,ze«dz 

Real*4  lc,aig(3Q,30,3)  ,smod,nu,zp(30,30)  ,zlev(so)  ,vertex(16) , 

1  la.Kii 

Integer*!  ldlg(30)  <lwgt(50)  ,aaslc(3000) 

Common  /mat/  emod.gaod.na.k 
Common  /dan/z01,z02,a,iz 
Common  /crack/  c 

Data  nnx,nny,xlow,ylow  /30, 30, 1.0, 1.0/ 
c 

pl-3. 141392634 

vrlt*(*,*)'  Siva  material  properties' 

0003  vrlte(*,*)'  emod.nu,  0->  pi.  stress  l->  pi.  strain' 
read(*,  *,err-0005)emod,nu,ipl 
if ( ipl . eg. 0) then 
k»  ( 3 . 0-nu)  /  ( 1 .  o+nn) 
else 

)c»3.0-4.0*nu 

endif 

gmod>*eaod/(2.a*(1.04-nu) ) 

0010  writ*(*,»)'  Give  main  crack  length' 

r*ad(*, *, ert^OOlO) c 
writ*(*,»)'  ' 

writ*(*,*)'  '•  Give  Sticrocrack  Information  ' 

0011  yrit*(*,*)'  Give  #  micros,  t  dislocations/micro  ' 

read  ( * ,  • ,  err-0011)  naic ,  ndis 
i  f  ( .ndis .  1  e .  0 .  or .  ndis .  gt .  1 0 )  ndi  s«  1 
ic»o 

dum>capix(0, 1) 
c 

do  0012  i«>l,nmic 

0013  writ*(»,*)'  Give  starting  and  ending  point*  ',i, 'th  micro' 
write(*,»)'  xstaLrt,y  start,  xend,  vend' 

read  ( • ,  * ,  errH}01S )  xs ,  ys ,  xe,  ye 
d*n«x*-xs 

if  (den.  It.  0.000001)  then 
thata>pi/2.0 

else 

th*ta-atan(  (ye-ya)/den) 
endif 

xd-cos( theta) 
yd-s in (theta) 
duml>cap Ix ( xd , yd) 

0020  writ*(*,*)'  Give  th*  CSD,  and  th*  COD' 
raad(*,  •,*rr-0020)bl,h2 
)il"b  1/  float  ( ndis ) 

h2»h2/ float (ndis) 
xdis-(x*-xs)/(2.0*flaat(ndis+l) ) 
ydis« (y*-ys) /  ( 2 . 0*f  loat  (ndisi-l) ) 
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1 

60 

c 

1 

61 

do  0013  j-l,ndis 

2 

62 

ic«ic+l 

2 

63 

xsc>xs+(xdls*flo«t(j) ) 

2 

64 

ysc»ys+(ydis»flo«t(3 ) ) 

2 

65 

x«c»xs-(»lis*flo«t(j) ) 

2 

66 

yec«ys- (ydia*f lost ( j n 

2 

67 

z 0 1 ( Ic ) acaplx ( xsc ,  ysc ) 

2 

63 

Z02  (lci>Kaplt(xec,y«c) 

2 

69 

a  ( ic)  •Haiplx  (bl ,  b2 ) 

2 

70 

a(ic)“(giod/(pi*(k+l) ) )  ‘dviml^aCic) 

2 

71 

a(lc)>a(lc)/duB 

2 

72 

0013 

continaa 

1 

73 

0012 

continue 

74 

c 

75 

c 

Select  points  of  interest  for  stress  conputation 

76 

c 

77 

0021 

write(*,*)'  Superimpose  remote  loading  Yes  ->!' 

78 

read(*,»,err«002lj irl 

79 

if ( irl . gt. 0)  then 

30 

0022 

write(*,»)'  Give  values  for  sigyy,  sigry' 

81 

read(«,*,err-0022)  ryy,rxy 

82 

Ki«ryy»sqrt{pi*c/2 . 0) 

33 

XII*rry*sgrt(pi*c/2 . 0) 

84 

endlf 

85 

0025 

write(»,*)'  Give  starting  and  ending  points  rs,ys,xe,ye' 

86 

read  ( * ,  • ,  err*0025 )  xs ,  ys ,  xe ,  ye 

87 

zs~cmplx(xs,ys) 

38 

ze>caplx(xe,ye) 

89 

vrite(*,»)'  Give  grid  resolution  nx,ny  (max  »  30) ' 

90 

read {* , ♦, err«0025 ) nx,  ny 

91 

dx-  ( xe-xs )  /float  ( nx- 1 ) 

92 

dy»  (ye-ys)  /float  ( ny-1 ) 

93 

c 

94 

c 

Define  tbe  grid  for  tbe  stress  computation 

95 

c 

96 

ZeZS 

97 

smx»0.0 

98 

smy»0 . 0 

99 

smxy>0.a 

100 

1-0 

101 

c 

102 

c 

Perform  Double  Loop  over  tb«  Stress  Grid 

103 

c 

104 

do  0035  i-l,nx 

1 

105 

xd-dx*  float ( i - 1 ) 

1 

106 

do  0045  j-l,ay 

2 

107 

yd«dy*float(j-l) 

2 

108 

1-1+1 

2 

109 

yval-ys+yd 

2 

110 

xval-xs+xd 

2 

111 

z-cmp lx ( xval ,  yva  1 ) 

2 

112 

rzx-rsal(z) 

2 

113 

rzy«^lnag{z) 

2 

114 

zc-conjg{r) 

2 

115 

zcio-z-c 

2 

116 

if  (cabs  (2)  .lt.l.0e-s)then 

2 

2 

117 

118 

wrice(»,»)'  Singularity  at  x-' ,xval, 'y-',  yval 
do  0043  3-1,3 
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3  119  Si9(l,  j,a)>1.0«3S 

3  120  0043  contloa* 

2  121  90  to  0045 

2  123  uidif 

2  123  l£(cabo(zc]c3)  .lt.l.0*-6)th«n 

2  124  writ*(*,»)'  Singularity  at  »•',  aval, 'y>»' ,yval 

2  125  do  0044  a-1,3 

3  126  slg(i,j,a)-1.0a3S 

3  137  0044  contiaaa 

2  128  go  to  0045 

2  129  andif 

2  130  writa(*,*)'  ' 

2  131  writa(«,*)'  ' 

2  132  writa(*,*)'  WorJeing  on  Point',!, ',j 

2  133  writa(»,*)'  Coords  “',xval,yvai 

2  134  C 

2  135  c  Start  Loop  ovar  dafinod  dislocations 

2  136  c 

2  137  sigl-O.O 

2  138  sig2-o.a 

2  139  sig3-0.a 

2  140  i£(naic.la.0)go  to  0024 

2  141  do  0023  i2-l,ic 

3  142  C 

3  143  c 

3  144  c  CiiscJc  i£  etosan  point  is  too  closa  to  singularity 

3  145  c 

3  146  zckl-i-zOKiz) 

3  147  2Clc2“2-z02(iz) 

3  148  i£(cabs(zeJa).lt.l.0a-S>t2tan 

3  149  writa(*,*)'  Singularity  at  r»' ,xval, 'y-' ,yval 

3  150  do  0041  a-1,3 

4  151  sig(i, j,a)>1.0a3S 

4  152  0041  continue 

3  153  go  to  0045 

3  154  andif 

3  155  i£(cabs(zclc2)  .lt.L.0a-6)than 

3  156  vrita{*,»)'  Singularity  at  r-',  aval, 'y»' ,yval 

3  157  do  0042  a-1,3 

4  158  sig(l,j,a)<«1.0e3S 

4  159  0042  continna 

3  160  go  to  0045 

3  161  andif 

3  162  C 

3  163  c  Canoute  the  stresses  at  tUa  prescribed  point 

3  164  c 

3  165  call  ?HI(Z,£Z1) 

3  166  call  iCSI(Z,£z2) 

3  167  call  ?Sr?(2,£=3) 

3  168  d«a-zc»£23+£z2 

3  169  sig2d-2.3*Tsal(fzl)-rreal(duin) 

3  170  sigld»4.3*r«al(£2l)-sig2d 

3  171  sig3d»aiaag(duB) 

3  172  sigl«sigi-sigld 

3  173  sig2»sig2-3ig2d 

3  174  siq3"sig3-9ig3d 

3  175  0023  continue 

2  176  0024  continue 

2  177  c 


285 


Paq«  4 
QS-27-88 
19:32:36 

0  Lina#  1  7  Microsoft  F0KrRAM77  V3.20  02/84 

2  178  c  Conputa  strcasaa  du«  to  applied  loadiM 

2  179  c 

2  180  if(lrl.9t.0)tlian 

2  181  if  (abs<xval)  .9t.a.a0001)than 

2  182  tli«yviU./xval 

2  183  tii>ataa(tM) 

2  184  if  {xval.lt. 0.0. and. yval.9t.0.0}th>ipi-ftM 

2  185  if  (xval.lt. 0.0. and. yval.lt. 0.0)tli-th-pi 

2  186  th-tV2.Q 

2  187  also 

2  188  tM>pi/4.0 

2  189  th-sigB(tli,yval) 

2  190  andif 

2  191  th3-3.0*th 

2  192  rad>>caba(z) 

2  193  fctr-lCI/aqrt(2.0*pi*rad) 

2  194  alt-sin (th) 

2  195  s3t-sin(thl) 

2  196  clt«coa(th) 

2  197  c3t-coa(tii3) 

2  198  si9l-aigl+(fctr*(clt*{1.0-alt*a3t))) 

2  199  sig2-sig2+(fctr»(clt*(1.0+alt«a3t))) 

2  200  sig3-sig3+(fctr*(alt*clt'»c3t) ) 

2  201  c 

2  202  fctr-KII/sqrt(2.0*pi*rad) 

2  203  slgl«si9l-(tctr*(ait*(2.0+clt»c3t))) 

2  204  si92-sig2+(fctr*slt'*clt«c3t) 

2  205  sig3-aig3+(fctr*(clt*(1.0-slt«s3t) )) 

2  206  andif 

2  207  sig{i, j,2)-aig2 

2  208  sig(i, j,l)-aigl 

2  209  aig(i,j,3)-sig3 

2  210  writa(*,»)'  Ideation  X«',xval,'  X"',yval 

2  211  vrita(«,*)'  sxx»',atgi,'  Syy“',tig2,'  Sxy-',aig3 

2  212  if  (a£is(saY)  .lt.abs(sig2)  )say-sig(i,],2) 

2  213  if  (abs(SBx)  .It.abs(sigl)  }sax-sig(i,  j,l) 

2  214  if(ai)a(saxy)  .lt.ab«(aig3))8aucy«sig(i,j,3) 

2  215  0045  continaa 

1  216  0035  continaa 

217  C 

213  c  Prapara  to  plot  th*  rasulta 

219  c 

220  0050  writa(*,*)'  Giva  loport, Modal, Fact' 

221  raad(*,*,arT-0050)  ioport, nodal,  fact 

222  0055  writa(*,»)'  Sxac  ->  1,  Syy  ->  2,  Sxy  ->  3' 

223  write(*,*)'  or  Principia  Straasaa' 

224  writa(»,*)'  Maxiaun  ->4,  Mininun  ->5,  Daviatoric  ->6' 

225  raad(», •,arr«0053)  ip 

226  if  {ip.lt.4)tlian 

227  do  0090  i-l,.TX 

1  228  do  0095  :«l,ny 

2  229  2P<i,j)-sig(i,  j,ip) 

2  230  0095  contimia 

1  231  0090  continaa 

232  andif 

233 

234  c 

235  c 

236  c 
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if (lp.qs.4)thsn 
saaxH>.o 
do  0120  1-1, nt 
do  0125  j«l,ny 
sigl-sig(i, j,l) 
siq2-sig(i,J,2) 
sig3-siq(l, j,3) 

call  prlnca  ( aiql ,  slq2 ,  alq3 ,  sipl ,  slp2 ,  sdsv) 
if  ap.sq.4)*p(l,  j)-aipl 
if  (ip.sq.5)*p(t,  j)-aip2 
if  (ip.sq.6)zp(i,  j)-«dsv 
if(aba(zp(i,j))  .q«.1.0al2)qo  to  0125 
if  (abs(zp(i,  j) )  .q«.saat)SBax-abs(zp(i,  j) ) 

0125  continns 
0120  contlzms 
andif 

if (ip.oq.l]thsn 

vrits(4,*)'  Til*  iiaitiiBtTB  valu*  is  »'',sax 
*1  salf  ( ip .  aq .  2 )  than 

vrlts(*,*)'  Tb*  maviiimii  valus  is  -',SBy 
•Isslf  ( ip .  aq.  3 )  than 
vrita(*,*)'  Th*  aarlaira  valu*  is 

ala* 

wxlta(*,*)'  Th*  aarinua  valus  is  »',aaax 
andif 

0070  writa(*,*)'  ~  slv*  contour  Information  — ' 

writa(*,*)'  #lavs,  ain  l*v/  aax  lav,  #  bstw  lab*ls,  f  first  ' 

raad  ( * ,  • ,  arr-0070 )  nl*v,  vain ,  vaax,  nbl ,  nat 

dlav-(vaaje-vain) /float(taav) 

il-nbl-nat 

do  0075  i-l,nlav 

zlev(l)«v*in+(dl*v*float(i) ) 

il-il+1 

if (il.aq.nhl) than 
Idiq(l)— 1 

lwqt(i)-2 

il-0 

sis* 

Idiq(i)— 2 
lwqt{i)-X 
sndlf 

0075  continus 
xhiqtr-5.0 
yhiqh-5.0 
hqt-0.07 
narc»3 
ndiv»2 

call  plots (o,ioport,Bod*l) 
call  factor (fact) 

call  zcaaq(zp,nnx,nny,nr,ny,xlow,ylow,xhi9h,yhiqh,  zl*v,ldiq, 

1  lvqt,nl*v,hqt,adiv,narc) 
do  0130  i-l,nl*v 
zl*v(i)— i.o*zl*v(i) 

Iwqt (i ) — 1. o»lwqt ( ij 
0130  continus 

c  call  stlin*(-l,.  1389,0.) 


293  call  zcs*q{zp,anx,nny,nx,ny,xlow,ylow,xhiqh,yhiqh,zlav,ldlq, 

294  1  lvqt,nlev,iiqt,ndiv,narc) 

295  c  call  stlina(l,. 1389.0.) 
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307 
306 

309 

310 

311 
313 

313 

314 
319 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 
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xli:>xhi9h-xlav 
yln^high-ylow 
xd*l>(x*-xa)  /  (rhigh-xlow) 
yd«l«(y*-y«)/  (yhigh-ylow) 
hgtl-.l 
hqt2-.l 

call  atari  s  (hqtl,  hgt2 .  hgtl ,  hgt2 , 2 ) 
call  axis (xlow.y low, '  '  ,-l,xin,0.0,x8,xdal) 
call  axls(xlow.ylov, '  ',l,yln,90.0,ys,ydal) 
call  axlaixlow.yhigli, '  ',i,xin,0.0,xa,xdal) 

'  call  axia(x2Lloii,ylow, '  '  ,-I,yln,90.0,ys,ydal) 
call  plot(a.,0.,999) 

0100  writa<*,»)'  3-0  Plot  ->  1' 

read  (*,*,arr^  100)  13d 
if(l3d.9t.0)t&aii 

0110  write(*,»)'  Give  hotiz,  vert,  angles' 

read  (• ,  * ,  err-oilo )  ator,  aver 
call  plots (Q,ioport„aodel) 
call  factor (fact) 
iproj«0 
itri»"0 
idir"3 
zlovvl.oeis 
ifraae^l 
icut-3 

call  Besh(zp,imx,nny,nx,ny,ahor,aver,xlow,ylow,xhigh, 

1  yhigt,  ledge,  idlr,  iproj',  ifraae,  zlov,  icut, 

2  itrls,BasX,  vertex) 
call  plat(0.,0.,999) 

eadif 

0080  write(*,*)'  Try  a  different  plot  ->  1' 
read(*,*,etr-0080)  iaew 
if (inew.gt.O)go  to  ooso 
end 


Kane 

Type 

Offset  ? 

Class 

2 

COMPLEX 

800 

/DAK  / 

ABS 

AHQR 

REAL 

21432 

IMTBIHSIC 

AXMAG 

ATAH 

AVER 

REAL 

21436 

INTRINSIC 

INTRINSIC 

B1 

REAL 

20960 

32 

REAL 

20964 

C 

REAL 

0 

/CRACK  / 

CIT 

REAL 

21300 

C3T 

REAL 

21304 

CABS 

ciptx 

C0K3G 

COS 

DBM 

REAL 

20936 

INTRINSIC 

INTRI-NSIC 

INTRINSIC 

INTRINSIC 

DLZ7 

REAL 

21372 

DOM 

COMPLEX 

20904 

oota 

COMPLEX 

20952 

ox 

REAL 

21062 

oy 

REAL 

21066 

□z 

COMPLEX 

«***« 

288 
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SHOD 

KEAI. 

0 

/MAT  / 

PACT 

asAX. 

21312 

PCTR 

REAI. 

21288 

FMAT 

INTRZNSXC 

F21 

COMPLEX 

21220 

PZ2 

COMPLEX 

21228 

F23 

COMPLEX 

21236 

OHOO 

REAL 

4 

/MAT  / 

HGT 

REAL 

21392 

Ban 

REAL 

21422 

BGT2 

REAL 

21426 

I 

IMTSCER*2 

20912 

11 

IirrEGER*2 

21376 

130 

ISTECZR^a 

21430 

IC 

IMTEGES^a 

20902 

ICOT 

IHTEGER*2 

21452 

IDIR 

XIITEG£R*2 

21444 

ISOGE 

IHTEGER-oa 

21454 

IPSAMZ 

I1ITBGER*2 

21450 

IMOT 

IMTEGER*2 

21456 

lOPOST 

IirrEGER*2 

21308 

IP 

ISTEGER*2 

21316 

IPL 

IHTEGER*2 

20896 

IPSOJ 

IIITBGES*2 

21440 

tSL 

IHTEGEa*2 

21024 

mas 

INTEGER*2 

21442 

IZ 

INTEGER*2 

1200 

/DAM  / 

j 

IHTEGBR*2 

20976 

X 

REAL 

12 

/HAT  / 

XI 

REAL 

21034 

KZZ 

REAL 

21038 

L 

IirTEGER*2 

21090 

iDia 

mTEGER*2 

14680 

UiGT 

IJITEGSR*2 

14780 

H 

ISTEGER-2 

21148 

KASX 

ISTEGER*2 

14880 

HOOEL 

INTEGER*2 

21310 

NARC 

I1ITEGER*2 

21396 

NBL 

nrrECER*2 

21368 

HOIS 

IirrEGER*2 

20900 

HOIV 

INTEGER* 2 

21398 

HLE7 

INTEGER*2 

21358 

mac 

INTEGER*2 

20898 

ma 

INTEGER*2 

20880 

Hire 

INTEGER*2 

20882 

MST 

INTEGER*! 

21370 

HO 

REAL 

8 

/MAT  / 

HX 

INTEGER*! 

21058 

TC 

INTEGER*! 

21060 

PI 

REAL 

20892 

RAO 

REAL 

21272 

SEAL 

INTRINSIC 

axT 

REAL 

21030 

amr 

REAL 

21026 

azx 

REAL 

21112 

az7 

REAL 

21116 

SIT 

REAL 

21292 

S3T 

REAL 

21296 

SDEV 

REAL 

21354 

289 
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SXS 

REAIi 

SIGl 

REAI. 

SIGID 

REAI. 

SIG2 

REAI. 

SIG2D 

REAI. 

S1G3 

REAI. 

StG30 

SIGH 

SIH 

REAI. 

SIPl 

REAI. 

SIP2 

REAL 

SMAX 

REAL 

SKX 

REAL 

SMX? 

REAL 

Sl» 

SQKt 

REAL 

TH 

REAL 

TH3 

REAL 

THETA 

REAL 

VERTEX 

REAL 

VMAX 

REAL 

vkik 

REAL 

xo 

REAL 

XDEt 

REAL 

XOIS 

REAL 

XE 

REAL 

XEC 

REAL 

XRIGH 

REAL 

XLM 

REAL 

XLOW 

REAL 

xs 

REAL 

xsc 

REAL 

XVAt 

REAL 

TO 

REAL 

TOEL 

REAL 

YDZS 

REAL 

TO 

REAL 

TOC 

REAL 

THIGH 

REAL 

TOH 

REAL 

YLOW 

REAL 

'is 

REAL 

TSC 

REAL 

TVAL 

REAL 

Z 

COMPLEX 

201 

COMPLEX 

202 

COMPLEX 

2C 

COMPLEX 

2CE1 

COMPLEX 

2CX2 

COMPLEX 

2C« 

COMPLEX 

2E 

COMPLEX 

21x7 

REAL 

2L0W 

REAL 

ZS 

REAL 

2S 

COMPLEX 

3«1S 

21162 

212S6 

21166 

21252 

21170 

21260 

nnsmisic 

omiXMSic 

21346 

21350 

21330 

21078 

21086 

21082 

IHTRZHSXC 

21264 

21268 

20840 

14616 

21364 

21360 

20944 

21414 

20968 

20928 

20992 

21384 

21406 

20884 

20920 

20984 

21108 

20948 

21418 

20972 

20932 

20996 

21388 

21410 

20888 

20924 

20988 

21104 

21070 

0  /DAM  / 

400  /DAM  / 

21120 
21130 
21138 
21128 
21050 
361$ 

21446 

1$ 

21042 
330  c 
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331  C 

332 

333 

334 

335 

336 

337 

338  C 

339  c 

340  c 

341 

342 

343 

344 

345 
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SubroutizM  PHI(z,frt) 

COBpl*x*8  z, 201(50)  ,202(50)  ,fz,fzt,a(50) ,an 

Conon 

2uv>a(lz) 

call  ?tu2(an, 2, 201(12)  ,fz) 
f2t-(an/(*-*01(iz) )  )+f2 

Add  Hagaelv*  8tizgf««a  7«etar 

am— 1.0*a(i2) 

call  PtLl2(an,z,z02(iz)  ,f2) 
f2t-frt+f2-*-(ail/(2-202(i2)  ) ) 
return 
and 


Haae 

Type 

Offset 

P 

Class 

A 

COMPIiEX 

800 

/DAM 

/ 

AH 

COMPLEX 

21458 

F2 

COMPLEX 

21466 

m 

COMPLEX 

4 

* 

iz 

tMTEGER*! 

1200 

/DAM 

/ 

z 

COMPLEX 

0 

* 

ZOl 

COMPLEX 

0 

/DAM 

/ 

Z02 

COMPLEX 

400 

/DAM 

/ 

346  c 

347  c 

348  C 

349  Subroutine  Ptil2  (an,  2,20, fzt) 

350  Conplax*8  an,ac,2,zo,£2t,f2l,£z2,£23,:cz 

351  ac»conjg(an) 

352  zoc«canjg(zo) 

353  call  £Z(z,X2) 

354  call  P(2,20,£z1) 

355  call  ?(2,zoc,£22) 

356  call  a(z,zoc,£23) 

357  c  £rt— 1.0*((an*£21)  +  (an*£22)+(ac*(2O-2oc)»£23)) 

358  fzt— 1.0*((an*£2l)  +  (an*£22)+(ac*(zo-2oc)*£r3)-(an*Xr) ) 

359  return 

360  end 


Nas* 

Type 

Offset 

P 

Class 

AC 

COMPLEX 

21498 

AH 

COMPLEX 

0 

• 

CCKJG 

IHTRZHSIC 

rzi 

COMPLEX 

21513 

?Z2 

COMPLEX 

21526 

FZ3 

COMPLEX 

21534 

rzT 

COMPLEX 

12 

xz 

COMPLEX 

21510 

z 

COMPLEX 

4 

* 

ZO 

COMPLEX 

8 

♦ 

zoc 

REAL 

21506 

361  o 

362  c 
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363  C 

364  Subcoutln*  F(z,zo,£z) 

365  Coapl«z«B  z,zo,£z,Xx,Xza 

366  Mil  fX(z,Xz) 

367  call  fX(zo,Xza) 

368  «Z-(1.0-(3CZ/XZO))/(2.0*(Z-2<»)) 

369  ratuzn 

370  and 

Heui«  Typa  Offsat  P  Class 

FZ  COMPLEX  8  * 

XZ  COMPLEX  21590 

XZO  COMPLEX  21598 

Z  COMPLEX  0  * 

20  COMPLEX  4  * 


371  o 

372  C 

373  c 

374  Subroatina  S(z,zo,£z) 

375  Coaplax*8  t,za,£z,Xz,Xzo,XPzo 

376  call  fX(z,Xz) 

377  call  fX(io,Xzo) 

378  call  flCP(za,XPzo) 

379  f 2-1 . 0-  (X2/X20)  +  (  (  (  2-20)  *XZ*XP20)  /  (X20*X2O)  ) 

380  £2-£2/(2.0*(Z-20)*(2-20)) 

381  ratuzB 

382  and 


Haas 

Typa 

Offsac  P  Class 

FZ 

COMPLEX 

8  *• 

XPZO 

COMPLEX 

21646 

xz 

COMPLEX 

21630 

XZO 

COMPLEX 

21638 

z 

COMPLEX 

0  » 

zo 

COMPLEX 

4  • 

383  C 

384  c 

385  O 

386  Subroutina  £X(2,Xz) 

387  CoBploZ*8  XZ,Z,Zpc 

388  Casson  /crack/  c 

389  2pC-(2+C)*2 

390  X2-1.0/csqrt(2P«) 

391  ratum 

392  and 

5asa  Typa  Q££aac  ?  Class 

C  SEAL  0  /CRACK  / 

CSQRt  laTRXXSIC 

:<2  COMPLEX  4  * 

Z  COMPLEX  0  • 

ZPC  COMPLEX  21718 
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393  C 

394  C 

395  C 

396  subrou-elna  aF(z,XPz) 

397  CoBpiax*«  X?z,z,zpc,2a,zb 

398  Conaon  /craclc/  c 

399  zpc-z+c 

400  za-cs<jrc(z) 

401  za-za*za*za*csqrb(zpc) 

402  zb-ea<jrt{zpc) 

403  zb"KMqrt(z)*zb«zb*2b 

404  XPz— 0.5*((1.0/za)-t-(1.0/zb)) 

405  return 

406  end 


Mane 

Type 

Offset 

P 

Class 

C 

real 

0 

/CRACK  / 

CSQRT 

omtiKsic 

XP2 

CQMFI£X 

4 

* 

Z 

COMPLEX 

0 

* 

ZA 

COMPLEX 

21758 

ZB 

COMPLEX 

21806 

ZPC 

COMPLEX 

21750 

407  C 

408  C 

409  C 

410  Subroutine  K3I(z, £zt) 

411  CoBpler*8  z,2c,2oc,z01(50),z02(50),£zl,£z2,fz3,fzt,a(50),an,ac 

412  Canaan  /daa/z01,z02,a,lz 

413  an^(iz) 

414  zc«c»nj7(z) 

415  call  ?bl2(aa,2C,z01(iz),fzl) 

416  £rl*conlg(S*l) 

417  call  ?tU.3(an,z,z01(lz)  ,£z2) 

418  call  Fbl2?(aa,z,z01(lz)  ,fz3) 

419  £zt«fzl-£z2-(z*£z3) 

420  ac>canj9(an) 

421  zoc“canjg(z01(iz) ) 

422  £zt-«zt+(4c/ (z-zoi (iz) ) )+( (an*zoc)/ ( (r-zoi(iz) )  * ( z-zOi (iz) ) ) ) 

423  c 

424  c  Add  Negative  a£  Second  Burgess  Vector 

425  c 

426  an— l.0*a(lz) 

427  call  ?bl2(an.zc,z02(lz]  ,£zl) 

428  frl«canjg(fzl) 

429  call  Pbi2(an,z,z02(lz)  ,£z2) 

430  call  ?bi2P(an,z,z02(iz) ,fz3) 

431  £Zt*£zt+£zl-fz2-(z»Cz3) 

432  ac-conjg(an) 

433  zoc»conjg(z02(iz) ) 

434  ezt-fzt+(ac/  (Z-Z02  (Iz) ) )  +  ( (an*zoc)/(  {Z-Z02  (Iz) )  *(z-z02{l2) ) ) ) 

435  return 

436  end 


Page  11 
06-27-88 
19:32:36 

Microsoft  F0RrRAN77  V3.20  02/34 


Kane  Type 


Offset  ?  Class 
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X 

COMPLEX 

800  /DAK 

/ 

AC 

COMPLEX 

21926 

AH 

COMPLEX 

21878 

CONJC 

nnsiMsic 

F21 

CQMPIfX 

21894 

?22 

COMPLEX 

21902 

F23 

OHIPLEX 

21910 

rzr 

COMPLEX 

4  * 

xz 

IMTEGER*2 

1200  /DAM 

/ 

z 

COMPLEX 

0  * 

zoi 

COMPLEX 

0  /DAK 

/ 

Z02 

COMPLEX 

400  /DAK 

/ 

zc 

COMPLEX 

21886 

zoc 

COMPLEX 

21934 

Pa^a  12 
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437  e 

438  e 

439  c 

440  Sttbroutloa  Pbx2P(an<z,zo,fzt) 

441  Complax*8  ain,ac,z,za,£z'C,£zi,fz2,£z3,XPz 

442  ae>>canj9(an) 

443  zoc-eonj7(zo) 

444  call  £»(z,XPz) 

445  call  PP(z,za,£zl) 

446  call  FP(z,zoc,£z2) 

447  call  <:P(z,zoc,£z3) 

448  £zt»-l.  0*  (an*£zl+an*£z2+ac*  ( zo-zoc)  *£z3-an*XPz) 

449  c  £2t«-1.0*(an*£zl+an*£z2+ac*(zo-zoc)*£z3) 

450  ratuzn 

451  and 


HaoMi 

Typa 

0££saO 

P 

Class 

AC 

COMPLEX 

22022 

AH 

COHJG 

COMPLEX 

0 

* 

nmiiHsic 

rzi 

COMPLEX 

22042 

rsi 

COMPLEX 

22050 

F23 

COMPLEX 

22058 

FZT 

COMPLEX 

12 

* 

XPZ 

COMPLEX 

22034 

Z 

COMPLEX 

4 

* 

ZO 

COMPLEX 

8 

zoc 

HEAL 

22030 

452  c 

453  c 

454  c 

455  Subroutina  r?(z,zo,£z) 

456  Ccaplax*8  z, zo, £z,Xz,Xzo,XPz 

457  call  £X(z,Xz) 

458  call  £Z(za,Xzo) 

459  call  £XP(z,XPz) 

460  £z-1.0-(Xz/Xzo)  +  (({z-zot»XPz)/Xzo) 

461  fz-£z/{-2.o»{:-zo)  *(i-ro)) 

462  raturji 

463  and 
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Naaa  Typ« 


Offsst  P  Class 


FZ 

COMPLEX 

XPZ 

COMPLEX 

xz 

COMPLEX 

xzo 

COMPLEX 

z 

COMPLEX 

zo 

COMPLEX 

3  * 
22130 
22114 
22122 

0  * 

4  • 


464  C 

465  c 

466  e 

467  Subrootina  CP(z,zo,fz) 

468  Cospl€r*8  z,zo,ez,ezl,tz2,Xz,Xza,XPt,X?zo 

469  call  fr(Z,3CZ) 

470  call  CX(zo,X2o) 

471  call  fXP(z,XPz) 

472  call  £XP(zo,XPza) 

473  fZl-1.0-(Xz/XzO)  +  (  (  (Z-ZO)  *Xz*XPZO)/{3C20*X20)  ) 

474  fzl-fzl/  (  (Z-ZO)  •  (Z-ZO)  *  (  2-Zo)  ) 

475  fZ2-((Z-ZO)*XPZO*XPz)/(XZO*XZO) 

476  fZ2-fZ2+(  (XP20*XZ)/  (XZ0*X20)  )  -(XPZ/XZO) 

477  fz2-f22/(2.0*(2-2O)*(Z-zo)) 

478  fz-fz2-fzl 

479  ratum 

480  and 


Nana 

Typa 

Offsat 

P  Class 

FZ 

COMPLEX 

8 

* 

FZl 

COMPLEX 

22218 

PZ2 

COMPLEX 

22290 

XPZ 

COMPLEX 

22202 

XPZO 

COMPLEX 

22210 

xz 

COMPLEX 

22186 

xzo 

COMPLEX 

22194 

z 

COMPLEX 

0 

* 

zo 

COMPLEX 

4 

it 

481  C 

482  c 

483  Subroutlna  PHZ?(z,fzt) 

484  C0Bplax*8  z, 201(50)  ,Z02(50)  ,£z,frt,a(50) , an 

485  CoBBon  /daB/z01,z02,a,iz 

486  an>a(izj 

487  call  ?ta2P(an,z,r01{iz)  ,  fz) 

488  frf£2-(an/  ( (z-zol(  iz) )  *(z-z01(iz) ) ) ) 

489  an--i.Q-*a(iz) 

490  call  ?tii2P(an,z,z02(iz)  ,£z) 

491  fzt-fzt+£2-(an/(  (r-z02  (iz) )  •(z-z02(iz)) ) ) 

492  racum 

493  and 

Xaaa  typa 


COMPLEX 


Offsat  ?  Class 
300  /OAM  / 
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AN 

COMPLEX 

22386 

F2 

COMPLEX 

22394 

F2T 

COMPLEX 

4 

IZ 

IllTBCElt*2 

1200 

Z 

COMPLEX 

0 

ZOl 

COMPLEX 

0 

Z02 

COMPLEX 

400 

494  C 

495  c 
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/D2kM  / 


/DAM 

/DAM 


496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 


0999 


Subroutin*  Princs ( siql, sigl , slgS , sipl, slp2 , sdsv) 

If  (si9l.9a.l.0«3.2.ar.si92.9«.1.0al2.or.slg3.gs.l.a«12)than 
Slpl-1.0«35 
alp2«1.0s3S 
sd«v-1.0«3S 
90  to  0999 
ondif 

sdsv»(  (si9l-sl92)/2.0)**2+sl93**2 
sdsv^qtt  ( sdsv] 
s« ( s i9l+ai92 ) / 2 . 0 
if (s.9s.a.0)than 
slpl-s>sdav 
sip2»s-sdsv 
slss 

#ipl”s-sdsv 

sipl's-fsdsv 

sndif 

rstum 

and 


Naaa 

Typa 

Offaat  P 

Class 

S 

REAL 

22442 

S0E7 

REAL 

20  * 

SIOl 

REAL 

0  * 

SI<32 

REAL 

4  * 

5103 

REAL 

8  • 

SIPl 

REAL 

12  * 

SIP2 

SORT 

REAL 

16  * 

INTRINSIC 

Haas  Typa 

Siza 

Class 

AXIS 

SUBROOTINE 

CRACK 

4 

COMMON 

DAM 

1202 

COMMON 

T 

SOHROOTINE 

FACTOR 

SOBHOCPPINE 

F? 

StTBROOTlNE 

FX 

SUBRODTINZ 

FXP 

SUBROOTINE 

0 

SUBROUTIKE 

OP 

SUBROOTINE 

KSI 

SUBROUTINE 

MAT 

16 

COMMON 

MESH 

SUBROUTINE 

296 
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PHI 

SUBROOTINE 

PBI2 

SOBROOTINE 

FSI2P 

SnaKOOTINE 

PBZP 

STIBROtJTXNE 

PLOT 

SnBROOTZNE 

PLOTS 

SETBROOrZNE 

PRINCE 

SUBROOTINE 

STATES 

SETBROOTINE 

STRESS 

PROCatAM 

ZCSEG 

SUBROOTINE 

?»<}»  15 
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Pmsa  On* 


No  Errors  0«t*ct*d 
514  Soore*  Linas 
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1  SStorage :  2 

2  $Dal)ug 

3  Prograa  KUPlot 

4  c***********************************************-**********************- 

5  This  program  is  dssignsd  to  coaputs  ths  nsar  and  far  field  * 

S  energy  release  rates  using  a  coaplex  potential  fonaulation.  * 

7  The  near  field  is  evaluated  via  the  strase  intensity  factors  * 

a  c*****  and  Che  far  field  is  computed  through  a  numerical  integration* 

9  o********************************************************************* 

10  C 

11  Conplem*8  z,zc,201,z02,f*l,fz2,f23,trans, 

12  1  a,duml,dum,dua2,dum3,dum4,zs,ze,dz,an,Ktot,!a2 

13  Heal*4  k,sig(30,30,3)  ,eaod,nu,zp(30,30)  ,zlev(S0)  ,vertex(16) 

14  Common  /sat/  eaod,gm^,nu,lc 

15  Common  /daa/zai,z02,a,iz 

16  Common  /crack/  c 

17  Data  nnr,nny,xlow,ylov  /30, 30, 1.0, 1.0/ 

18  c 

19  pi-3.1415926S4 

20  writa(*,*)'  Give  material  properties' 

21  0005  write(*,*)'  emod.nu.  0->  pi.  stress  l->  pi.  strain' 

22  raad<*,*,err*0005}emod,nu,ipl 

23  if (ipl.aq.O)then 

24  k»(3 .o-nu)/(1.0+nu) 

25  else 

26  lc«3.0-4.0*nu 

27  endif 

28  gmod-emod/(2.0*(l.Q-t-nu) ) 

29  0010  vrlte(*,»)'  Give  main  crack  length' 

30  read(»,»,err"0010)c 

31  write(*,*)'  Give  rad, theta, csd, cod' 

32  raad(*,  ♦)rad, theta, bx, by 

33  theta"{theta*pi)/180. 

34  c 

35  e  Compute  the  Burgess  Vector 

36  c 

37  ci“coa (theta) 

38  si»sin(theta) 

39  trans-caplx(ci,si) 

40  dum>caplx(0,l) 

41  a-caplx(bx,by) 

42  a-trans*a 

43  a-(gnod/(pi»(k+l) ) )  *a 

44  a>a/dum 
43  c 

46  c  Compute  Hondisensionalizing  factor  in  Ballarini's  paper 

47  c 

48  facC"(rad»*l.S)  •(k+1.0)/{gaod*.01*sqrt(bx»bx+by*by)  ) 

49  fact»fact»sgrt(pi/2.0) 

so  open(S,file-'KI.dat'  ,status-'Tiew') 

51  open ( 6, fila>'lCII.dat'  .status-' new') 

52  do  0050  il-1,170 

1  53  beta-float{il-l)  •pi/180.0 

1  54  dua-caplx(0,l) 

1  55  xs»rad*eos(beta) 

1  56  ys"rad*sln(beca) 

1  57  ye-ys''(0.01*sin(thota) ) 

1  58  xe«xs+(0.01*cos(thet4) ) 

1  59  z01-caplx(xs,ys) 
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1  60  z02-caplx(x*,y«) 

1  61  C 

1  62  c  Start  coapotatloo  of  tho  Near  Field  Energy  Release  Rates 

1  63  c 

1  64  Ktot>«aplx(0.a,0.0) 

1  65  an-a 

1  66  ze^zOl 

1  6?  du»-caqrt((ze+c)/ze) 

1  68  dua— 1.0*an*(  real  (dum) -1.0) 

1  69  c 

1  70  duai2“Cs<jrt(conjg(ze) ) 

1  71  duai2>2.0*dtni2*dum2*duaa*csqrt(conjg(ze)+c) 

1  72  dual>(conj9(an)*aiaa9(ze)*c)/duai2 

1  73  dua2~caplz(0.0,l.0) 

1  74  dUalaHltXal*dX2B2 

1  75  K12— 2.0*sqrt((2.0*pl)/c)*(dusrHiuml) 

1  76  an— 1.0«a 

1  7?  ze>z02 

1  78  dUB-cs<]rt(  (ze4c)/2e) 

1  79  dua— 1.0*an»(reai(dum)-1.0) 

1  80  c 

1  81  dua2>csqrt(conjg(ze) ) 

1  82  duB2>2.0*dUB2<dvDa2edu]B2ecsqrt(conj9(ze)-H:) 

1  83  diuBl-(conj9(an)  *aiaa9(ze)  *c}/duB2 

1  84  dtia2>c39iia(a. 0,1.0) 

1  85  dual>dllBl*dUB2 

1  86  K12“K12-(2.0*aqrt(  (2*pi)/c)  *(duzH-dual) ) 

1  8?  Ktot-Ktot-t-ia.2 

1  88  c 

1  89  c  Nondiaensionalize  by  the  factor  in  Ballarinl's  Paper 

1  90  c 

1  91  rKl-f  act*Teal  (Rtot) 

1  92  rSII— 1.0*fact*aijBagr(Rtot) 

1  93  ril«float(U-l) 

1  94  write(5,»)ril,rsa: 

1  95  writa(6,»)ril.rsri 

1  96  0050  continna 

97  close(S) 

98  close (6) 

99  end 


Haae 

Type 

Offset 

?  Class 

A 

COMPLEX 

16 

/dam  / 

AIMAG 

AN 

COMPLEX 

14792 

INTRINSIC 

BETA 

REAL 

14754 

3X 

REAL 

14702 

BY 

REAL 

14706 

C 

REAL 

0 

/C3CACX  / 

Cl 

aiFLX 

REAL 

14710 

INTRINSIC 

COIUG 

INTRINSIC 

cos 

INTRINSIC 

CSQRT 

□CM 

COMPLEX 

14726 

INTRINSIC 

□OMl 

COMPLEX 

14920 

□cm2 

COMPLEX 

14848 

□OK) 

COMPLEX 
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OOK4 

COMPLEX 

02 

COMPLEX 

*«««* 

EMOO 

REAL 

0 

/MAT  / 

FACT 

REAL 

16758 

FIOAT 

rzi 

COMPLEX 

OTRIMSIC 

m 

COMPLEX 

nz 

COMPLEX 

SHOD 

REAL 

4 

/MAT  / 

11 

IirrE6ER*2 

16762 

IPL 

IMTEGER*2 

16692 

XZ 

I»TEGEH*2 

26 

/DAM  / 

% 

REAL 

12 

/mat  / 

X12 

COMPLEX 

14960 

KTOT 

COMPLEX 

16786 

MMX 

IMTECER*2 

16676 

MMY 

rHTEGER*! 

16678 

MU 

REAL 

8 

/mat  / 

PI 

REAL 

16638 

BAO 

REAL 

14694 

B£AL 

KZl 

REAL 

15136 

tMTRIMSIC 

8X1 

REAL 

15128 

BKII 

REAL 

15132 

SI 

REAL 

16716 

SIS 

REAL 

3876 

SIM 

SORT 

THETA 

REAL 

16698 

IMTRINSIC 

ETTRIMSIC 

T8AHS 

COMPLEX 

16718 

VERTEX  REAL 

3812 

XE 

REAL 

16780 

XLOM 

REAL 

16680 

xs 

R£Xl8 

16768 

IB 

16776 

?L0W 

REAL 

16686 

IS 

REAL 

16772 

z 

COMPLEX 

««■**« 

ZQl 

COMPLEX 

0 

./OAK  / 

202 

COMPLEX 

8 

/TXAM  / 

2C 

COMPLEX 

*«««« 

ZE 

COMPLEX 

14800 

2127 

REAL 

3612 

2P 

REAL 

12 

ZS 

COMPLEX 

Hase  Type 

Size 

Class 

CRACK 

6 

COMMOH 

DAM 

26 

COKHOH 

KUPLO 

PROGRAl 

MAT 

16 

COMMON 

Pass  0ns 


Mo  Irrors  Ostsctad 
99  Source  Lines 
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1 

2 

2 

2 

1 


1 

1 

1 

1 

1 

1 


2  $Stara9«:  2 

3  $D*bug 

4  Program  ksmin 

5  c********************«****************************************«****** 

6  c*****  This  program  is  d*aign*d  to  comput*  th*  strmss  intansity  * 

7  e*****  factor  at  varioua  locations  in  front  of  th*  crack  tip  for  a  * 

8  c*****  sBoothad  daaag*  distribution.  * 

9  c********************-************************************************' 

10  C 

11  Caaplar*8  z,zst,znd,zlnc,zc,z01(400)  ,z02(400) , 

12  1  a(200)  ,dtiml,dum,duB2,zs,z*,dz,an,Xtat,ja2,ft3 

13  Raal*4  k,nu,rs(400)  ,x*(400)  ,ys(400)  ,y*(400)  ,bl(400)  ,b2(400) , 

14  1  vol(20,8) 

15  pi-3.141592654 

16  writ«(*,»)'  dv*  matarial  prop*rti*s' 

17  0005  writ*(*,»)'  eaod,na,  0->  pi.  strass  l->  pi.  strain' 

18  raad(*,*,*rr-0005)*mod,nu,lpl 

19  if (ipl.*q.a)than 

20  k-(3.0-nu)/(1.0-*-nu) 

21  also 

22  Ie»3.0-4.0*nu 

23  andif 

24  gmod-aaod/(2.a*(1.04-nu) ) 

25  0010  vnrit*(*,»)'  Give  main  crack  langth' 

26  read(*,»,*rr«0010)e 

27  0007  vrita(*,*)'  Damage  zone  length' 

28  read  (*,*,*rr-0007}  max 

29  0038  writ*(«,*)'  Give  sig-xy' 

30  raad(*,*,*rr-003a)aigxy 

31  rinlt»sigxy*sqrt(pi*o.5*c) 

32  writ*(*,*)'  ' 

33  0039  writ*(«,*)'  Give  Approximate  Dislocation  #' 

34  read(*,*y*rr-0039)nfudge 

35  phi-(20.0*pi)/180.0 

3  6  open  <  5 ,  f  ila- '  vol ,  out ' ,  status-'  old ' ) 

37  vtot«0.Q 

38  do  0006  j«l,3 

39  do  0008  i-1,20 

40  read(5,*)vol(i, j) 

41  vtot«vtot+vol(i, j) 

42  0008  continu* 

43  0006  continu* 

44  writ*(*,»)'  total  volume  «',vtot 

4  5  vtot-vtot/  float  ( nfudge ) 

46  clos*(5) 

47  c 

48  c  symmetrize  th*  volume  distributions 

49  a 

50  do  0130  i»l,20 

51  vol(i,l)«0.3*(vol(i,l)+vol(l,8) ) 

52  vol(i,3)-vol(i,l) 

53  vol(i.2)“0.3*(vol(i,2)-rvol(i,7) ) 

54  vol(i,7)-vol(i,2) 

55  vol(i,3)»0.3*(vol(i,3)+vol(i,S) ) 

56  voi!i,5)«voi(i,3) 


57 

58 

59 


vol(i,4)-0,s»(vol(i,4)-i.vol(i,s)) 

vol(i,3)«vol(i,4) 

0130  continue 
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60  C 

61  c  Coaputs  8n  •quivalenc  f  of  dislocations 

62  c 

63  ioo 

64  Xf»4.0/3S.4 

65  yf«5.0/25.4 

66  op«n(S,file>'dls.out',status»'nav'] 

67  c 

68  do  0100  j-1,8 

1  69  do  0110  i>l,20 

2  70  xlc«xf*float(i-l) 

2  71  xuc-x£*float(i) 

2  72  ylc— 0.78740+(y£*float<j-l)) 

2  73  yuc— 0.78740+(y£*£lOat ( j) ) 

2  74  ncdls«int(vol(i,  j)/vtot) 

2  75  l£(ncdla.^.0}than 

2  76  yd«l“(yuc-ylc)/(float(nc<iis) ) 

2  77  do  0115  iJ.-l,ncdis 

3  78  ic-ic+1 

3  79  xa(ic)>xlc 

3  80  xa^cl>xnc 

3  31  ys(ic)»ylc+(yd«l*£loat(il-l) ) 

3  82  if  (yuc.lt-O.o.or-ylc-lt.o.O)thsn 

3  83  zphi>-1.0*phi 

3  34  «lsa 

3  35  zphi«ptii 

3  36  endif 

3  87  y«(ic)"ys(ie)'t-((jMc-xlc)*tan(zphi)) 

3  38  if  (abs(ys(ic) )  .lt.O.OOS)ys(lc)-sign(O.0O5,ys(ic) ) 

3  89  if  (abs(ya(lc) )  .lt.a.0OS)ya(lc)>algn(0.0O5,ye(ic) ) 

3  90  writa(S,»)xs(ic)  ,ys(ie)  ,xe(ic)  ,y*(ic) 

3  91  C 

3  92  c  Sntar  tits  function  for  the  Slippage  function  bare 

3  93  c 


3 

94 

bi  ( ic)  »o .  0005*  ( 400 . 0/ float  (nfudge) ) 

3 

95 

b2(ic)«'0.ao 

3 

96 

0115 

continue 

2 

97 

endif 

2 

98 

0110 

continue 

1 

99 

0100 

continue 

100 

close(5) 

101 

vrite(*,«)ic, '  dislocations  generated 

102 

open  ( 5,  fiie>'Icerak.  oat'  .status— 'ncv*) 

103 

apen(6,file-'1cdaa.out'  .status—' new') 

104 

open(7.  file-'lctot.out'  .status-'new' ) 

105 

do  0016  j-1.  100 

1 

106 

write(*,»)'  working  on  '.j.'tb  point' 

1 

107 

duB-caDix(a.ll 

1 

108 

do  0017  i-l.ic 

2 

109 

xcen-(M«ax»float(j-l)  )/100.0 

2 

110 

xes— re(i) -xcen 

2 

111 

xss— xs  { i) -xcen 

2 

112 

yes-ye{i) 

2 

113 

ys8»ys(i) 

2 

114 

den-xes-zss 

2 

115 

if  Men.  It.  0.000001)  then 

2 

116 

tbeta«ui/2.0 

2 

117 

else 

2 

118 

tbeca-at2Ui(  (ye3-yss)/den) 

1 

1 

1 
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2 

119 

uidif 

2 

120 

xd»co«(tti«ta) 

2 

121 

/ 

■ 

2 

122 

dmi-caplx  ( xd ,  yd) 

■ 

2 

123 

zO  1  ( 1)  •caiplx  (::sa ,  yma) 

Z 

124 

202  ( 1)  •K3>plx  (x«a,  7*s} 

2 

12S 

a(i)-caplx(lil(i)  ,b2(l)) 

■IB 

2 

12S 

a(i)-(giod/(pi*(Jc+l) ) )  *dual*a(l) 

■ 

2 

127 

a(li>a(l)/dum 

■ 

2 

128 

0017 

continae 

■ 

1 

129 

C 

1 

130 

c 

Start  coBpatatlon  of  tb«  Stroaa  Intanslty  Factor 

1 

131 

c 

■ 

1 

132 

el-c+xean 

■ 

1 

133 

Ktot-caplx ( 0 . 0 , 0 . 0) 

■ 

1 

134 

Do  0030  I'l.lc 

2 

135 

em»a(i) 

2 

136 

z««z01(l) 

■ 

2 

137 

dvo«-csqrt(  (z*+cl)/z«) 

■ 

2 

138 

dtai^l.O*an*(raal(dua)  -1.0) 

■ 

2 

139 

dua2>csqrt(canj9(z«) ) 

2 

140 

du]a2~l .  0*dtiB2*duB2*dus2'*cs<]rt  (conjg(  za)  -fcl) 

2 

141 

dioal>(c4nj9(aii)  *aJjBag(za)  •cl)/d«]a2 

■ 

2 

142 

dizm2-CBplx  ( 0 . 0 , 1 . 0 ) 

■ 

2 

143 

dtiBU.*dtxai*du3B2 

■ 

2 

144 

X12--2 . 0*  sqrt  ((2*pl)/cl)*(  d«m+du*l ) 

2 

145 

an»-1.0*a(i) 

2 

146 

ze«zQ2(l) 

■ 

2 

147 

dUBf*csqrc(  (za4cl)/z«) 

■ 

2 

148 

dUBi»-1.0*an*(raal(dtni)  -1.0) 

■ 

2 

149 

dua2«csqrt(coaj9(zo) ) 

2 

ISO 

dam2>2 . 0*duB2*dua2'*dtim2*c3qrt  (conj9  ( za)  -h;1) 

2 

ISl 

duaa»(conjg(an)  “aiaagCra) *cl)/du»2 

■ 

2 

1S2 

duB2>capIx  ( 0 . 0 , 1 . 0 ) 

■ 

2 

1S3 

dUBl«d<2al*doa2 

■ 

2 

1S4 

K12>"!a2-(2 . 0*sqrt (  (2*pt) /cl)  » (dusHdUbl) ) 

2 

1S5 

Xtot»Ktac+K12 

2 

1S6 

0000 

continua 

1 

157 

C 

■ 

1 

158 

c 

Writa  out  tba  Straas  Intanaity  Factors 

■ 

1 

159 

c 

1 

ISO 

rXII»-1.0*ai»ag<Xtot) 

1 

161 

rSdl-riai/rinit 

J. 

162 

rXcra)«iqxy*sqrt  (pi»0 . 5*cl) 

I 

1 

163 

rXcraJp^Xcra  V  r  tnit 

■ 

1 

164 

writa  ( 5 ,  * )  xcan ,  rXcrak 

V 

X 

163 

writa  ( 6 ,  * )  xoan ,  rSnCT 

i 

166 

tot-rXcrak+rXIl 

MB 

167 

wr ita ( 7 , » ) xcan , toe 

■ 

168 

writa(*,»)'  ' 

■ 

1 

169 

write(*,*)'  Strasa  tatanaity  Factors:  ' 

■ 

1 

170 

writa(*,«)'  SdaM-' ,rSIt, '  Kcrac]c-',rtera)c, '  Ktot» 

',tot 

1 

171 

0016 

continua 

172 

closa(5) 

■ 

173 

closa(6) 

1 

174 

cloaa(7) 

1 

1 

1 

1 

175 

and 
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A 

COMPLEX 

6416 

ABS 

INTRINSIC 

AIMAG 

AM 

COMPLEX 

134S! 

INTH33fSIC 

ATAM 

31 

REAL 

1S056 

INTRINSIC 

32 

REAL 

166S6 

C 

REAL 

18278 

CL 

CXPL^ 

REAL 

13434 

INTRINSIC 

C0HJ3 

INTRINSIC 

COS 

INTRINSIC 

CSQKP 

DEM 

REAL 

13386 

INTRINSIC 

DOM 

COMPLEX 

1835! 

DCMl 

COMPLEX 

18402 

OOM2 

COMPLEX 

18508 

DZ 

COMPLEX 

*•••• 

EMOO 

REAL 

18260 

PLOAT 

m 

COMPLEX 

***** 

INTRINSIC 

GMOD 

REAL 

18274 

I 

INTEGER* 2 

13306 

11 

INTEGER*2 

18340 

IC 

INTEGER*! 

18308 

arr 

INTRINSIC 

IPL 

INTEGER*! 

18268 

j 

INTEGER*! 

18304 

K 

REAL 

18270 

K12 

COMPLEX 

18612 

raoT 

COMPLEX 

18438 

KCOIS 

INTEGER*! 

18334 

MruUGE 

INTEGER*! 

18294 

MU 

REAL 

18264 

PHI 

REAL 

18296 

PI 

REAL 

18256 

SEAL 

RIMIT 

REAL 

18290 

INTRINSIC 

SXCRAK  REAL 

18784 

axil 

SIGN 

REAL 

18780 

INTRINSIC 

SIGXI 

SIN 

REAL 

18286 

INTRINSIC 

SORT 

INTRINSIC 

TAN 

THETA 

REAL 

13390 

INTRINSIC 

TOT 

REAL 

13788 

70L 

REAL 

14416 

TTOT 

REAL 

18300 

XCSM 

REAL 

13366 

XD 

REAL 

18394 

XE 

REAL 

12816 

XZS 

REAL 

18370 

X7 

HEAL 

13310 

XLC 

REAL 

18318 

XKAX 

REAL 

18282 
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xs 

REAL 

8016 

xss 

REAL 

18376 

XDC 

REAL 

18322 

YD 

REAL 

18398 

YOEL 

REAL 

18336 

YE 

REAL 

11216 

YES 

REAL 

18378 

YF 

REAL 

18316 

YLC 

REAL 

18326 

YS 

REAL 

9616 

YSS 

REAL 

18382 

YDC 

REAL 

18330 

Z 

COMPLEX 

***** 

ZOl 

COMPLEX 

16 

Z02 

COMPLEX 

3216 

ZC 

COMPLEX 

***** 

ZE 

COMPLEX 

I846C 

zntc 

COMPLEX 

***** 

ZHD 

COMPLEX 

ZFBX 

REAL 

18368 

ZS 

COMPLEX 

***** 

ZST 

COKPLEX 

***** 

Name 
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Typ* 
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1  SDEBUG 

2  $STORAaE:  2 

3  Prograa  Plotx/ 

4  c****************************************-**************************** 

5  c*****  This  routin*  is  duigned  to  draw  up  to  5  fil*s  on  w  x-y  plot 
S  c******************************************************************** 

7  ConBon/vork/ai(500)  ,yl(500)  ,x2(S00)  ,y2(500) 

8  charactar^lO  fllaim 

9  charact*r-*l  it«rt,att(20)  ,3ctt(20)  ,ytt(20) 

10  cluuract«r*2a  atit,xtit,ytit,l*gd 

11  equivalanc*  (■tt(l)  ,atit) ,  («t(l)  ,rtit) ,  (ytt(l)  ,ytit) 

12  data  xaax/lO.O/,  ymax/S.O/,  xax/7.0/,  yax/5.0/,  rat/1.5/ 

13  c 

14  c  Input  a«n«ral  Infomation 

15  c 

IS  istyle-O 

17  0007  writ*(*,*)'  Giv*  Xain,XBa3t,Xlhi,7aia,Taax,Ylhl' 

13  r*ad(*,*,err-0007)XBn,XBDC,rax,yan,yB3e,yar 

19  iforca-1 

20  yat-yar+0 . 1 

21  fl-7.o/rar 

22  f2-5.0/yar 

23  if(fl.l*.f2)th*n 

24  fain-fl 

25  «ls« 

2S  fain-f2 

27  andif 

28  0055  fotaat('  xxxxxxxcocxxxxxaccxx*) 

29  writ«(*,*)'  Give  X  -  Aria  titl*' 

30  read(*,a050]xcit 

31  writa(*,0O55) 

32  0050  forBat(a20) 

33  writ*(*,*)'  Give  Y  -  Axis  title' 

34  writ* f*, 0055) 

35  r«ad(*,0O5O)ytit 

36  writ*(«,*)'  Give  Main  Title' 

37  write(*,0055) 

38  read (*, 0050 )atit 

39  0008  writa(»,*)  '  select  Output  Device;' 

40  write(*,*)'  Terainal  ->  0' 

41  writ*(*,*j'  Printer  ->  1' 

42  readC*,  *,4rr>00Q8)  lout 

43  if (lout. eg. 0) then 

44  ioport-93 

45  aodel«93 

4S  els* 

47  ioport«0 

43  modei-S4 

49  endif 

50  0009  writ*<*,*)'  Give  Plot  Size  Factor' 

51  read (♦(•,*rT"0009)  fact 

52  fact" fact* fain 

53  c 

54  c  Start  Large  Loop  for  File  Input 

55  c 

56  isva--13 

57  ltf«l 

58  npenal 

59  if (isya.eq.o)then 
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so 

lt«0 

SI 

•ls*if  ( lays,  gt .  0  .and.  lsy«.  1*.  IS)  then 

S2 

lt-1 

S3 

elsalf  ( Isya.  It .  0 .  and .  lsy« .  9*. -IS )  than 

64 

i8y»"-l»i*ya 

S5 

It— 1 

ss 

•ndif 

S7 

open  (S,flle-'dla.  out  • ,  status- '  old ' ) 

68 

npl-0 

69 

npi-O 

70 

do  0030  j«l,500 

1 

71 

read  ( 5 ,  • ,  err-002 7 )  dljc ,  dly ,  d2x ,  d2y 

1 

72 

if (dly.gt.O.O)then 

1 

73 

npl»npl+l 

1 

74 

xl{npl)-dlx 

1 

75 

yl(npl)-dly+.02 

1 

76 

x2{npl)-dlx 

1 

77 

y2{npl)— 1.0*(dly-t-.02) 

1 

78 

endif 

1 

79 

if (d2y.gt.0.0) then 

1 

80 

npl-npl+1 

1 

81 

xl(npl)-d2x 

1 

82 

yl(npl)-d2y+.02 

1 

83 

x2(npl)-d2x 

1 

84 

y2(npl)— 1.0»(day+.02) 

1 

85 

endif 

1 

SS  0030 

continue 

87  0027 

continue 

88 

close (5] 

89 

90  C 

np2-npl 

91  C 

92  C 

Start  plotting  the  distn  data 

93  C 

94  C 

Ihitialit*  input  information 

95 

call  plots(0,iopcrt, model) 

96 

call  factor (fact) 

97 

98  C 

call  vindov(0.,0.,xmax,y3iax) 

99  c 

100  c 

Set  plot  origin  at  coords  (1.25,1.25) 

101 

102  C 

call  plot(1.25,1.2S,-3) 

103  c 

104  c 

□etermine  scaling  parameters 

105 

xl(npl+l)«xnn 

lOS 

xl  ( npl+2 )  -  ( xnx-xmn) /xax 

107 

yl(npl+l)«ymn 

108 

y  1  (npl+2 ) « ( ymx-yrim)  /yax 

109 

x2  (npl-t-lj-xmn 

110 

x2  (np2-t-2)»(xnx-x3n) /xax 

111 

y2 (np2+l)«ymn 

112 

113  C 

y2  (np2+2)«(ynx-ymn)  /yax 

114  c 

115  C 

□raw  each  of  the  curves 

116 

do  0031  il-1,2 

1 

117 

if (il.aq.l)then 

1 

118 

call  stlinadtf ,0.25,110.) 
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